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SUMMARY 


This report describes a method and a digital computer program for 
prediction of the distributions of fluid velocity and properties in 
axial -flow pump configurations. A mathematical model of the flow is 
developed for calculation planes in which the flow is assumed to be 
steady and axisymmetric . Flow patterns in these planes are determined 
by an iterative numerical procedure. The calculation planes are 
located at the configuration entrance and exit, and between blade rows. 
Correlated results of pump configuration experiments are used to gener- 
ate alternative methods for estimating the turning and loss character- 
istics of the blade elements intersected by approximate steam surfaces. 

Detailed descriptions of program logic and use are followed by 
example input and output data sets, plus typical computed results. 
Strengths and weaknesses of the method are outlined. In general, it is 
found that the flow model and computational procedures are satisfactory. 
The results are useful for both qualitative and quantitative purposes. 
Limitations are related to the quality of the empirical estimation of 
blade section performance. These limitations are characteristic of all 
axial- flow compressor and pump performance prediction systems described 
in the literature to date. 



INTRODUCTION 


This report reviews an extended study of the problem of prediction 
of distributions of fluid velocity and properties in axial-flow pump 
configurations. This study was begun in 1960 as one response to the 
need for fundamental improvement in performance levels and reliability 
of turbopumps for liquid-propellent rocket systems and has been carried 
on in cooperation with the research staff of the NASA Lewis Research 
Center. Principal objectives were to select a satisfactory flow model 
and a logical sequence of steps for computation of the required flow 
patterns, and to incorporate these steps into an efficient digital com- 
puter program. In addition, necessary correlations of experimental 
information were to be developed to support the program. 

In the first part of the report, the scope of the project is out- 
lined and compared with related investigations in the fluid mechanics 
of turbomachinery. The second portion is a detailed description of a 
method and computer program for axial-flow pump performance prediction. 
The method and program are based on numerical solution of equations 
representing a model of the real flow in an axial-flow turbomachine. 

The third part reviews the results of utilization of the program for typical 
axial-flow pump geometries. 

Computed results are compared with experimental measurements from 
NASA research involving water tunnel tests of these geometries. These 
comparisons are useful in defining areas in which the performance pre- 
diction method is successful and valid. It is also possible to identify 
characteristics of the method which are not satisfactory at present. 

The performance prediction problem for turbomachinery, as it is 
defined in this report, is one of the most difficult unsolved problems 
in applied fluid mechanics. It is, therefore, a primary objective of 
this review to provide a foundation for future studies in performance 
prediction and related areas. 
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PERFORMANCE PREDICTION FOR AXIAL-FLOW TURBOMACHINERY 


Two fundamental problems occur in selection of a geometrical con- 
figuration for a turbomachine. The first is the design or indirect 
problem and is concerned with the determination of a satisfactory pas- 
sage and blading configuration. For this problem, the given information 
includes the nature and characteristics of the working fluid, the fluid 
properties at the entrance to the turbomachine for the design operating 
point of the system, the flow rate and a required change in one or more 
fluid properties between the entrance and exit. In addition, there may 
be other initial requirements or limits, related to rotational speed, 
size, efficiency, and other operating characteristics of the machine. 

After a possible design point configuration is determined, it is 
essential to consider what will happen to the performance of the config- 
uration when it is operated at flow rates or rotational speeds, or with 
entering fluid conditions other than those used as design point values. 
This second problem, called the analysis or direct problem, can be, for 
reasons which will be made evident in the report, considerably more dif- 
ficult than the design problem. The level of difficulty is, however, 
substantially dependent on the nature of the information to be provided 
by the solution. Some of the methods which have been proposed will be 
reviewed briefly in the following paragraphs to indicate clearly their 
character . 

Performance Prediction Systems Background 

Although this section considers some work related to the most gen- 
eral forms of solution of the analysis problem, primary emphasis is on 
turbomachines in which energy is transferred from the rotor to the work- 
ing fluid and in which the result is an increase in the fluid pressure 
or head, that is to compressor and pump configuration analysis. In addi- 
tion, because of the objectives of the current program, detailed consid- 
eration is restricted to work applicable to the class of turbomachines 
(axial-flow) in which the main flow is essentially parallel to the rota- 
tional axis. Within these limits, there is a considerable volume of 
information available on methods for solution of the analysis problem. 
These methods may best be classified by reference to the scope and nature 
of the results obtained. 

One category of performance prediction systems produces only over- 
all performance characteristics. This class is exemplified by references 
1-4 and its use is discussed by Robbins and Dugan in reference 5. Ordi- 
narily, these methods are based on one-dimensional (e.g. mean radius) 
calculations, on "stacking" of the estimated performance curves for 



individual stages, or on assumed analogous behavior between the config- 
uration of unknown performance and previously-tested configurations. 
Such methods are useful for component-matching and systems studies, and 
o a limited extent can be used for locating mismatches between stages 
in multistage compressors and pumps. ° 


A second and far more difficult type of performance prediction 
method is based on computation of the fluid velocity and properties at 
selected points in the flow path of the turbomachine. A mathematical 
model of the flow is developed and solution of the resulting equations 
permits determination of flow patterns in the turbomachine and, by 
appropriate averaging techniques, the overall performance characteristics. 
T e solutions are iterative and, for all practical cases, are feasible 
only if accomplished using a large-scale digital computer. 


The significance of such methods can readily be understood If 
the local velocity and properties could be calculated with some accuracy 
at desired points in a proposed configuration, alternate geometry choices 
could be evaluated during the design process without experimentation. 
Furthermore, the availability of both overall performance and detailed 
velocity distributions for off-design operating conditions would contrib- 
ute substantially to reducing required design and development time for 
the system in which the turbomachine is a component. 


The performance prediction method described in this report is of the 
second type and all subsequent uses of the term "performance-prediction 
method" herein refer to methods of this type. As background information 

for the work discussed, it is appropriate to review some of the related 
prior studies. 


Some of the earliest reported work on the analysis problem was done 
by Serovy (refs. 6 and 7) and by Swan (refs. 8 and 9) for axial-flow compressor con- 
figurations . Both investigations were based on a finite-difference solution 
of the nonisentropic radial equilibrium and continuity conditions at 
stations between blade rows. The steady, axisymmetric model of the flow 
used has been described and justified thoroughly in references 10, 11 
and 12. In each method, correlations of experimental data were developed 
and used for predicting the radial distribution of the fluid turning 
angle and of the total-pressure loss for each blade row. Trial solutions 
were presented for single-stage geometries, and comparison with experi- 
mental data was not good. Principal discrepancies appeared to be the 
result of inadequate data correlations for flow angle and loss. Never- 
theless, the two studies demonstrated the feasibility of numerical solution 
systems in generating both detailed flow passage distributions and over- 
all compressor performance. 


Jansen and Moffatt (ref. 13) used a similar approach in developing a 
program for computation of multistage axial-flow compressor performance. 
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The steady, axisymmetric model was again used as formulated by Novak 
(ref. 14) , and this formulation included improved schemes for iterative loca- 
tion of the axisymmetric stream surfaces and for computation of local 
values of stream surface slope and curvature. Example solutions for 
two multistage compressor configurations were, as in the earlier inves- 
tigations, less than satisfactory. It is likely that experimental data 
correlations and computed annulus wall boundary layer displacement thick- 
nesses were responsible for much of the observed difficulty. 

Davis (refs. 15 and 16) has described a program and data correlations for 
compressor analysis and design problem solutions. This program was pri- 
marily based on the flow model of Novak (ref. 14), combined with correlations 
available from earlier studies. Davis provides extensive flow diagrams 
and descriptions of program logic, together with explicit definition of 
the correlation equations used. Creveling and Carmody (ref. 17) also have 
developed an analysis program for multistage axial-flow compressors. 

Again, the documentation of the program is reasonably complete for both 
data correlations and the flow model. 

More recently Daneshyar (ref. 18) and Grab 1 (refs. 19 and 20) used flow 
models similar to Novak (ref. 14) and their own data correlations to predict com- 
pressor performance. Daneshyar discusses in somewhat more detail than 
any earlier work, the numerical problems which are encountered in flow 
passage solutions. This useful discussion is supplemented by papers of 
Marsh (ref. 21) and Wilkinson (ref. 22) , who give a good deal of insight into some 
of these numerical difficulties. These stability, convergence, and loss- 
of-solution problems are important, and this will be made evident in the 
discussion of the current analysis program development. 

All of the preceding referenced work is concerned with analysis 
for axial-flow-compressor geometries. The methods are also similar in 
that they assume a steady, axisymmetric flow. All reported calculations 
are at stations located in the axial spaces between blade rows. The 
basic flow model is, therefore, that identified as the blade-element 
model and described in reference 10. Fundamental differences in strat- 
egy exist between these methods in the numerical solution techniques 
applied, including the means for estimating local values of stream sur- 
face position, slope and curvature. It is clear, even in those instances 
where program documentation is not included, that program logic is not 
similar in the various systems. Finally, there is evidence in all cases 
that the experimental data correlations required are a major source of 
program trouble. Because these correlations, which permit calculation 
of blade row relative exit flow angle and blade row relative total- 
pressure loss as a function of spanwise location, are present in every 
method, they may be isolated as a possible source of difficulty in the 
work reported herein. 

A somewhat different means for formulation of the analysis problem 
for axial flow turbomachines has been proposed and used by Marsh, 
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Gregory- Smith and others (refs.23 and 24) . The matrix through-f low me thod has 
been reasonably well documented, but unfortunately has not been tested 
by application to an adequate number of realistic flow situations. It 
does not avoid the requirement for input of key empirical data correla- 
tions and in example solutions currently available, does not appear to 
offer a clear improvement in any area of performance calculation. 

Additional examples of related research on turbomachine analysis 
are contained in references 25 to 28. A procedure and computer program 
for axial-flow turbine analysis is described in reference 25. Another 
is discussed Renaudin and Somm (ref. 26). A novel method for avoiding 
solution convergence problems is used in reference 26, which should be 
applicable to other turbomachine cases. Novak et al. (ref. 27) have attempted 
adaptation of the earlier system reported in reference 13 to the esti- 
mation of effects of inlet flow distortion on axial-flow compressor per- 
formance. Ribaut (ref. 28) has outlined a system for a very general analysis 
of the through- flow field, but unfortunately, the problems of applica- 
tion appear to be substantial. 

The analysis system described in this report differs essentially 
from earlier efforts in a few areas. First, the blade-element model is 
applied to axial- flow-pump analysis. As a result, it avoids problems 
that derive from changes in fluid density and from the loss phenomena 
associated with shock waves where acoustic velocity levels are reached 
or exceeded in compressor blade passages. Second, the influences of 
stream surface slope and curvature on the radial distribution of velocity 
are omitted. Third, a program logic is used that is believed to be some- 
what unique and very efficient. Finally, some new ideas in data corre- 
lation are developed, which can only be proven by comprehensive applica- 
tion and testing. In every area, it is the intent of the report to disclose 
the reasoning leading to choices among alternate options and to expose 
the segments of the program that presented the greatest difficulty. 


Problem Analysis For Axial-Flow Pump Configurations 


Figure 1 is a typical plot of the experimental performance of an 
axial-flow pump stage. The data points were obtained by measuring fluid 
properties and velocities at the pump inlet and downstream from the stage 
at stations as shown in figure 2. Operating at constant rotational speed, 
while controlling the flow by means of a downstream throttle, data sets 
were measured at specified volume flow rates. The actual points plotted 
were obtained by averaging the radial distributions of measured proper- 
ties. Corresponding to each data point on figure 1 are radial distribu- 
tions of various flow parameters and reduced data such as those shown 
in figure 3. 

Because most system analysis and design evaluation requirements 
are based on the use of curves such as those in figures 1 and 3, it is 
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logical to make generation of such curves a major goal in a performance 
prediction method. It is less apparent, but equally important to note 
that the mode of operation and data acquisition for the pump is based 
on the assumption of certain characteristics of the flow that are in 
keeping with the nature of the flow model described in the following 
paragraphs. These considerations have an important influence on the 
development of procedures and logic. 

Flow Model 

The analysis method described here is directed toward the problem 
of prediction of the flow patterns in axial-flow pump configurations. 

In proceeding toward this objective, a number of decisions were made 
which called for the use of parameters or techniques drawn from estab- 
lished axial-flow compressor and pump technology. Wherever possible, 
attention will be called to these decisions and to the limitations which 
they might place on the method. 

All calculations are made in planes perpendicular to the rotational 
axis of the configuration. These planes must be located in the axial 
spaces between blade rows and are analogous to measuring stations shown 
in figure 2. Aside from the computational convenience resulting from 
use of such stations, the computed velocities and properties may readily 
be checked against experimentally measured data obtained from the radial 
survey probes. The local flow in all of these calculation planes is 
assumed to be steady and axisymmetric. Again, this is consistent with 
data acquisition methods, in which most rotor data have been taken using 
steady-state instrumentation located at a limited number of circumferen- 
tial positions, ^ehind stationary blade rows, circumferential property 
surveys have typically been made at constant radius values and averages 
have been taken at each radius to compute velocity diagram quantities 
for that radius. The result for rotor and stator measuring planes is a 
series of local velocity diagrams for selected radial positions. 

A coordinate system which is consistent with typical data acquisi- 
tion is used for the analysis program. The system is a cylindrical type 
with r, Q, and z coordinates. The z axis is coincident with the rota- 
tional axis of the pump and is positive in the direction of inlet flow. 
Local velocity diagrams for all calculation planes follow the sign con- 
vention shown in figure 4. The reason for omission of the radial compo- 
nent of velocity will be given later. 

The flow through all blade rows is assumed to follow stream surfaces 
of revolutions which are fixed by the flow continuity condition at the 
calculation planes upstream and downstream from the blade row. No attempt 
is made in the performance prediction method to trace the assumed stream 
surface within the blade row. For calculation purposes, these surface 
of revolution may be thought of as shown in figure 5. These surfaces 
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intersect the blades to form a cascade of blade sections. A "cascade 
plane" view of the intersection surface, as seen by an observer looking 
along a radial line, is the basis for estimation of changes in flow 
angle and total pressure through each blade row (ref . 29). Figure 6 repre- 
sents such a cascade plane projection and defines a number of blade 
section geometry and cascade flow parameters. 

For the calculation system, radial components of local velocity in 
all calculation planes are assumed to be negligible. At the same time, 
all stream surface slope and curvature effects are eliminated in estab- 
lishing the equations governing the flow. This aspect of the flow model 
differs from the treatment of flows in most axial— flow compressor analysis 
systems, in which stream surface slope and curvature influences may be 
significant factors. In the current study, examination of experimental 
data from a large number of axial-flow pump geometries showed that stream 
surfaces for a range of flow conditions were very nearly cylindrical, 
with near-zero radial velocity components. 

For all calculations, local effects of fluid shear stress are 
neglected in setting up the equations representing the flow model. This 
does not mean that the cumulative effects of shear stresses do not affect 
the local flow, because upstream total-pressure losses are accounted for 
in determining the flow patterns in each calculation plane. This is an 
important distinction, because it will become evident that the accumu- 
lated losses in total pressure which occur on the assumed stream surfaces 
are among the most significant factors in influencing velocity distribu- 
tions . 


The equations representing the flow are all formulated for a fluid 
with a constant density. Nowhere in the analysis system is provision 
made for two-phase flow or for effects of cavitation. 


For a steady, axisymmetric flow neglecting local fluid shear stress 
terms, the radial component of the differential equation of motion is 


8 V 

g dr r i 


dV 

i 

dr 


dV 


- V 


z dz 


( 1 ) 


For constant-density fluid flows, a historically significant parameter 
has been the local total head defined as 


H = h + 


2g 


( 2 ) 


Differentiating equation (2) with respect to radius and substitut- 
ing in equation (1), gives 


dH 


dV 


dV 


dV 


g = — + v ~ + v ~ - v ~ 

dr r 0 dr z or zdz 


(3) 
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This is the radial equilibrium condition and is the equation used to 
determine the radial variation of axial velocity component in each cal- 
culation plane. The last term is omitted as a result of the assumption 
of negligible radial components of velocity. 

In each calculation plane, the flow must also be consistent with 
the designated pump entrance flow rate. For an axisymmetric flow of a 
constant -density fluid, the flow rate equation in integral form is 


q = 



( 4 ) 


For flow through a rotating blade row, in which energy is added to 
the fluid, the change in total head along a stream surface between en- 
trance and exit calculation planes is 


H 2 " H 1 + 


U 2 V 0,2 


' u i v e,i 


- H 


loss 


( 5 ) 


For a stationary blade row, in which no energy transfer occurs 
corresponding equation is 


H 


2 



H- 

loss 


the 

( 6 ) 


These equations, together with equations defining the various pas- 
sage and cascade flow parameters, are those which represent the flow in 
the calculation planes for the axial-flow pump analysis system. In the 
following section, these equations will be written in finite difference 
form as they have been programmed for digital computer solution. 


With the exception of the assumptions concerned with radial velo- 
city components and stream surface shape effects, the flow model proposed 
is essentially the same as that presented in reference 10 and used in 
numerous axial-flow compressor design and analysis situations. The equa- 
tions presented are particularly adapted to the study of constant-density 
fluid flows. It should also be noted that no arbitrary factors are de- 
fined to account for passage wall effects. Specifically, no boundary- 
layer blockage factor enters the continuity condition. This point should 
be recalled in connection with comparison and interpretation of experi- 
mental and computed results as presented in later sections of this paper. 


Computing Sequence 


As described in the following section, the performance analysis 
program computes fluid velocities and properties for discrete values of 
inlet flow rate at a constant pump rotational speed for fixed and spec! 
fied passage and blade row geometries. Beginning at a base flow rate, 
the program marches up and/or down in flow rate in much the same way 
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the pump configuration would be experimentally evaluated. Results avail 
able to the user include those which would be most significant in design 
evaluation. 


Numerical Solution of Governing Equations 


The simple radial equilibrium equation for determination of the 
radial distribution of axial velocity V z in the leaving flow from a 
blade row is given in equation (3). Solution of this equation for arbi- 
trary blade row geometry and operating conditions has to be performed 
numerically in conjunction with requirements of the continuity equation 
and empirical approximations for head losses and leaving flow angle 
deviation in the flow. The development of a finite difference approxi- 
mation to equation (3) for the numerical solution is given below. 

Consider the meridional section through a blade row as shown in 
figure 5. A finite number of finitely spaced streamlines given by the 
traces of the axisymmetric stream surfaces in the meridional plane are 
used; intersections of these stream surfaces in the blades are the blade 
elements defined by the flow through the blade row. The computing stations 
just upstream and downstream of the blade row are constant z-planes iden- 
tified as i and i + 1, respectively. As seen in figure 5, two adjacent 
streamlines in the analysis are called streamlines j and j + 1, with the 
streamline j = 1 the hub streamline, and j = jj. the tip or outer casing 
streamline. 


The flow conditions satisfying radial equilibrium and continuity at 
the upstream axial station i are known. To be determined, of course, is 
the radial equilibrium and continuity solution for the flow leaving the 
blade row at station i + 1, and the radial positions there of the stream- 
lines used in the solution. 

The finite difference approximation to equation (3) is obtained by 
integration of the equation between streamlines j and j + 1 at axial 
station i + 1. Note again that the final term in equation (3) is omitted 
because of the assumption of negligible radial velocities. Thus, 


V z i+l,j+l 


/ 


V dV 
z z 

1+1* j 


H i+l,j+l 



i+l> j+1 



r i+l,3 


0 i+ 1 , j+ 1 


J 


V dV 

0 0 


0 i+l.J 


(7) 
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or 


2 2 / 2 
v z j±U±l ' V z i+l,j _ v . 1( V 9 j±U ±l 

2 -^ H i + l, j+ l 2\r. +1}j+1 


+ 6 *+-Ul (r - r ) 

+ - ^ i+l,j+l i+l, j ' 


'i+l, j 




2 2 
0 i+l, j+1 " V e i+l 


,) 


( 8 ) 


Solving this equation for the velocity V z ±+l y j+l in terms of the known 
velocity V z i+l,j on the adjacent streamline ana remaining variables yet 
to be determined, we obtain, 

v z i+l.J+X ■ V z i + l,j + 28<H i + l,j + l - H t + IJ> 

/ 2 2 \ 

V 6 t±U±l + V 9 1+1,1 ] (r - r , J 

r i + i, J+1 Vx.j ) i ul ’ s+1 1+1J 


- (V^ - ) 

^ v e t+i, j+i v e i+i,j ; 


(9) 


The head difference term in equation (9) can be written in terms 
of the ideal head rise and head loss for the (j+l)th streamline or blade 
element as, 


H i+l,j+l " H i+l,j H l,j+1 + ^ideaPj+l 

H loss,j+l H i+l,j 


( 10 ) 


This, with substitution of the ideal head rise from equation (5), along 
with the velocity triangle relation 


V 0 i+l, j+1 " U i+l,j+l ' V z i+l, j+1 tait ^i+1, j+1 


(ID 


for the leaving whirl velocity component, becomes 
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Solution of equation (13) is iterative due to the fact that V z 
is dependent on the leaving streamline radial positions, the blade element 
head loss and flow deviation, and on the leaving flow total head 
and velocity components V z Vo , on the adjacent streamlines 

as well. A plot of the left-hand side ofequation (13) as a function of 
V z i+i j+i is a parabola; the correct root of equation (13) is at the 
intersection of the parabola with the V z axis yielding the greatest V 2 . 

The iteration process to obtain the V z distribution leaving a blade row 
continually revises the coefficients in equation (13) for any one stream- 
line, and hence the solution, until convergence is obtained. In the case 
of divergent iterations, the parabola is altered and readjusted until an 
intersection of the parabola (for the streamline) with the V z axis fails 
to exist. 
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Initialization of head losses at zero and streamline radii at con- 
stant radial increments are therefore used at an initial flow rate assign- 
ment. Also, the axial velocity component at a starting or base streamline 
in the leaving flow (V z i+l,jbase) is assumed for the initial flow rate. 
With this starting information, deviation angle can be calculated in 
order to determine relative leaving flow angle 0i+i j + i, and leaving flow 
total head and whirl velocity on the adjacent streamline. This incremen- 
tal procedure is followed to solve for the blade element radial distribu- 
tion of axial velocity, working adjacent streamline to the next, from the 
base streamline outward to the outer casing and inward to the hub. 


With the V z 14.1 distribution known, the continuity requirements 
from the assigned flow rate can be checked to revise the base streamline 
velocity and iterate as necessary. This is done using simple quadrature 
across the annulus to obtain a measure of the flow rate according to 


'!■+ 1 , j 


lim 


J- XUl 

- E 

j = i 


(V Z i+1, j+1 + 


)(r 2 

i+l,j Mr i+l,j+l 


( 17 ) 


Upon convergence of the base streamline axial velocity value, radial 
positions of the leaving streamlines are determined according to conti- 
nuity and the entering streamline radii; the leaving radii are revised 
and iterated on until convergence is obtained. Finally, exterior to the 
radial equilibrium and continuity iterations, head losses are estimated 
on the basis of the determined flow. This procedure for solution is 
followed, of course, at the exit axial station for each blade row through 
the pump, with the determined leaving flow for a blade row becoming the 
known inlet flow for the following blade row. (Details of the radial 
equilibrium and continuity solution are given in the later discussion 
of subroutine RADEQC of the pump performance computer program. The basis 
of blade element head loss and deviation angle calculations is in the 
following section. ) 
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BLADE- ELEMENT LOSS AND DEVIATION ANGLE PREDICTION 


As will be illustrated in the RESULTS section, the method for pre- 
dicting axial-flow pump off-design performance proposed in this report 
can only be as successful as the blade-element total pressure loss and 
deviation angle estimation procedures required. The simplifications 
that led to the tractable mathematical formulation of the axial-flow 
pump off-design analysis problem must eventually be compensated for via 
realistic loss and deviation angle prediction. 

To date, totally satisfactory general means for obtaining axial- 
flow pump or compressor losses and deviation angles, even in terms of 
empirical correlations, are not to be found in the literature. Several 
options for loss and for deviation angle prediction in pumps have been 
made available with the present computer program. The background asso- 
ciated with each technique is described in the following paragraphs. 
Stationary plane cascade results are discussed first followed by an 
explanation of how these results were extended to apply to three- 
dimensional pump flow. 

Because of the short time available for developing general three- 
dimensional pump flow blade-element loss and deviation angle calculation 
procedures, an empirical approach using reasonably orthodox ideas was 
pursued. Realizing that completely satisfactory loss and deviation 
angle estimation procedures would probably not result from empiricism, 
the goal established was to seek procedures that represented improvement 
over use of Carter's rule for deviation angle estimation and two- 
dimensional cascade data for loss calculation. Correlations are based 
on axial-flow pump rotor blade-element loss and deviation angle data. ^ 
For stationary blade rows, pump configuration data were not available in 
sufficient quantity to permit correlation studies. 


Stationary Plane Cascade Flow 

In view of the widespread use of the blade-element method, it is 
not surprising to find that most current loss and deviation angle pre- 
diction methods are traceable to stationary two-dimensional cascade flow 
ideas. In many instances, more or less empirical "correction factors 
have been used to make two-dimensional methods applicable to turboma- 
chinery flows. Thus it seems appropriate to discuss briefly some of 
the two-dimensional cascade loss and deviation angle research relevant 
to the options available with the present performance prediction method. 

Loss prediction. - As fluid flows over the suction and pressure 
surfaces of an "airfoil representing a cross-section of a turbomachine 
blade, boundary layers develop on these surfaces and meet at the trailing 
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edge to produce a wake. Consequently, a decrease or ”loss' ? of relative 
total pressure is suffered by the fluid as it flows past the airfoil. 
Depending mainly on the surface pressure gradients involved, large or 
small wakes and consequent losses may occur. Large losses are generally 
related to boundary layer separation on either the airfoil suction or 
pressure surface. 


Results of the two-dimensional cascade loss-related research con- 
ducted by S. Lieblein and co-workers (refs. 30 to 34) in the 1950's remain 
influential today. Three data correlating parameters, namely, diffusion 
factor, blade-wake momentum thickness to chord ratio, and equivalent 
diffusion ratio that evolved from this work form the basis for many cur- 
rent axial-flow turbomachine loss prediction techniques. 


Diffusion factor: Chronologically, the diffusion factor was devel- 

oped first (ref. 30). It was mainly intended and developed as a limiting- 
blade-loading or separation criterion for design point operation that 
could be easily calculated from blade row inlet and outlet velocity dia- 
gram values. The Buri shape factor (ref. 35), 


r _ 0 dU /U0\ n 

1 " U dx [v ) ’ (18) 

was selected as the fundamental basis for the diffusion factor. Applica- 
tion of the Buri shape factor to the blade suction-surface velocity dis- 
tribution of a blade element operating at minimum loss in a two-dimensional 
cascade led to the derivation of the diffusion factor or parameter 


D = 1 



£l 

aCTV x 


+ b 


(19) 


where a is empirically determined to be equal to 2.0 and b is considered 
to be negligibly small. This diffusion factor was used with data for 
NACA 65-series compressor blade sections in two-dimensional low speed 
cascade and found to be satisfactory in terms of defining a limiting 
value of diffusion. The diffusion factor was also applied to selected 
conventional (65-series and circular-arc blade section) single stage 
compressor rotor and stator data. No significant variation of minimum 
( esign) loss coefficient with diffusion factor was noted for the hub 
and mean radius regions of the rotors and the hub, mean and tip regions 
of the stators oyer the range of data considered. A marked and practi- 
cally linear variation of minimum (design) and even off-design (positive 
incidence) loss coefficient with diffusion factor was noted for the tip 
region data of the rotors for a relative inlet Mach number less than 

v t / J . 


Momentum thickness to chord ratio: Further developments by Lieblein 

and co-workers (ref. 32) appeared to be motivated by the idea that low-speed 
two-dimensional cascade losses are mainly attributable to the blade 
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suction and pressure surface boundary layers. It was pointed out by 
Lieblein (ref. 36) that according to the results of references 32, 37, and 
38, the contribution of conventional blade trailing-edge thickness to 
the total loss is not generally large for compressor sections. He also 
observed, on the basis of the data of references 37 and 39, the effect 
of blade thickness is small for conventional cascade configurations. 

The approach to developing a viable loss prediction method consisted of 
developing a relationship between loss and blade wake characteristics 
and then identifying parameters that significantly influence these wake 
characteristics. The following relationship between total-pressure 
loss coefficient and blade wake characteristics was developed (ref. 32) for 
the outlet measuring plane (up to 1.5 chord lengths downstream of the 
blade trailing edge) of a constant density flow two-dimensional cascade 
of compressor blades: 


2h„ 


. 2 H a 

^ cos P^y 

\ c/ cos P 0 

Icos P-/ 


3H„ 


! _ £ ° H 2 


c cos (3, 


( 20 ) 


The important assumptions associated with this equation are that 

1. the cascade outlet flow can be divided into a wake region where 
total pressure varies and a free stream region where total 
pressure remains constant, 

2. the inlet flow is uniform across the blade spacing, 

3. the outlet static pressure and flow angle are constant across 
the entire blade spacing, 

4. the outlet free-stream total pressure is equal to the inlet 
total pressure. 

The term involving shape factor 



was judged to be essentially equal to 1.0 for conventional unstalled 
configurations. The parameters primarily influencing the boundary layer 
growth and subsequent losses on low speed cascade blade sections were 
identified (ref. 36) as a) blade surface velocity gradients, b) blade-chord 
Reynolds number, and c) the free-stream turbulence level. 
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Considering the suction surface boundary layer and thus the suction 
surface velocity distribution as being the major contributor to wake 
momentum thickness and consequently loss, Lieblein (ref. 36) successfully 
correlated some two-dimensional cascade minimum-loss data with (9/c) 
and D. Recalling that the shape factor term in the relationship between 
loss coefficient and wake characteristics is secondary, it was also 
determined that approximate values of 0/c calculated from 

U) cos 3 2 /cos p 2 
2 ct ycos ^ 

and 


U) COS P 2 

2a 

resulted in strong correlation of the cascade minimum loss data of ref- 
erence 40. 


Equivalent diffusion ratio: Subsequently, Lieblein (refs. 33 and 34) showed 

that two-dimensional cascade data for minimum- loss incidence angle, as 
well as incidence angles greater than the minimum loss value, could be 
generally correlated with 0/c and V /V 2 f re estream as correlating 
parameters, since the diffusion ratiS^vJi"^"'” treaB is diffl- 
cult to evaluate for turbomachine flow, an equivalent diffusion ratio, 
that could be calculated in terms of blade row inlet and outlet charac- 
teristics, was sought. The following semi -empirical relationship was 
developed for two-dimensional cascade flow: 


DEQ 


cos 3 2 
cos g 


C 1 + 


Co a 


* ^3 

i ) 3 


+ c A (c 


.P.)J 


( 21 ) 


where 


e.p. = cos 3 r 

C 1 = 1.12, 

C 2 = 0.0117 for NACA 65(A 1Q ) blades, 

= 0.007 for C.4 circular-arc blade. 
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C 3 = 1 ' 43, 

C, = 0.61, 
4 


and 


i = minimum loss incidence angle. 

Reynolds number effect: As shown by Lieblein in reference 36 

laminar boundary layer separation associated with low Reynolds number 
flow significantly affects the blade element losses involved. At low 
Reynolds number, turbulence level markedly influences the laminar bound- 
ary layer and thus loss. As Reynolds number increases, the extent of 
laminar boundary layer separation decreases and the influence of Reynolds 
number and turbulence level on loss diminishes. Schilling. and Das (ref. . 41) 
suggest that "low” Reynolds numbers are of order 10 , while hig 
Reynolds numbers are of order 10*. The evidence presented by Lieblein 
(ref. 36) supports these numbers. Because the NASA axial- flow pump data 
used for determining loss correlations involved minimum blade-chor 
Reynolds number of the order of 10* , Reynolds number and turbuience 
effects on loss were not considered further during the present study. 

neviation angle prediction. - The average flow angle of the^ fluid 
leaving^^cas^ade^oTidentical blades differs from the blade outlet 
ingle by an amount defined as the deviation angle. Cascade geometrical 
and flow parameters thought to influence stationary plane cascade devia 
tion angles are as follows: 


blade setting angle, 

solidity, 

profile shape, 

total camber, 

maximum blade thickness, 

thickness and camber distribution, 

trailing-edge thickness, 

surface finish, 

incidence angle, 

axial velocity ratio, 

inlet velocity level (Mach number), 

Reynolds number , 

turbulence level, 

unsteadiness , and 

cavitation . 


Two-dimensional geometric parameters: Two-dimensional cascade 

results and to a lesser extent potential flow theory, have been used 
S lh the values of deviation angle for various two-dimensional 
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cascade geometries. The plausibility of the dependence of deviation 
angle in two-dimensional flow on geometric parameters can be established 
by considering the cascades drawn in figure 7. The cascades in figure 7a 
each have the same chord length, solidity and camber, but the cascade on 
the right has a higher blade setting angle than the other cascade, and 
hence has a significantly shorter length of passage bounded on both 
sides by blade surfaces. Thus, for a fixed incidence angle, increasing 
blade setting angle tends to decrease guidance of the flow and hence 
tends to increase deviation angle. Decreasing solidity, a, also tends 
to decrease guidance of the flow and increase deviation angle as seen 
by the difference in channel length of the two cascades in figure 7b. 
Although it is not so graphically obvious (figure 7c) deviation angle does 
increase with increasing camber, and according to Lieblein (ref. 36) the 
relationship between deviation angle and camber is linear for potential 
flow. 


One frequently-used deviation angle prediction equation. Carter's 
rule (ref. 42) reflects these ideas as 

m c 0° 

6 = -JJ2 ( 22 ) 

a 

where m c is a function of blade setting angle and the position of maxi- 
mum camber. Curves of m as a function of blade setting angle that are 
based on theory and experimental data are given by Carter and Hughes 
(ref. 43) for circular arc and parabolic arc (maximum camber at 407 o of the 
chord from the leading edge) camberline blades. Howell (ref. 44) ascribed 
to Constant (ref. 45) an early version of equation (22) in which m c » 0.26 
was used. Equation (22) applies specifically to the '’nominal” incidence 
angle which Howell (ref. 44) defines as the incidence angle for which the 
turning angle, (e), is equal to 0.8 of the turning angle at which the 
loss is twice the minimum value, however, it is frequently applied 
throughout the low- loss incidence angle range under the assumption that 
deviation angle does not change appreciably with incidence angle in the 
low-loss range. 

Lieblein' s method: A deviation angle prediction method, which 

includes more geometric parameters, was presented by Lieblein (ref. 36). 
The method was based on two-dimensional cascade data for NACA 65-series 
compressor blades which were presented by Emery et al. (ref. 40). Correla- 
tions were made for performance at a reference incidence angle (i re f) 
defined to be midway between the incidence angle at which the total 
pressure loss across the cascade was equal to twice the minimum- loss 
value (see figure 8). At the reference incidence angle, i re f> devia- 
tion angle is expressed as 


where 6 0 is th e reference deviation angle for zero camber, 0° is camber, 
and m is the slope of the deviation angle function with camber. Curves 
are presented by Lieblein (ref. 36) , giving the slope factor m as a function 
of inlet air angle and solidity for circular-arc-mean-line blades. 

Inlet air angle was used instead of blade setting angle because the cas- 
cade date of Emery et al. (ref. 40) were obtained at a constant inlet air 
angle rather than a constant blade setting angle. The zero-camber devia- 
tion angle is given by Lieblein (ref. 36) as 


6 - 60 , (kA (Om 

o \ 6/sh\ 6/ tyo/lU 


(24) 


where (6 o )i0 represents the zero-camber deviation angle for a 10% thick 
NACA 65-series distribution, (K§) s i 1 is a correction for blade shapes 
with thickness distributions different from the 65-series, and (K 6 ) t is 
a correction for maximum blade thickness other than 10/ o of the chord. 
Empirical curves are given for ( 6 0 ) 10 as a function of inlet air angle 
and solidity and for (K 6 ) t as a function of maximum thickness ratio, 
t /c. A value of 1.1 for (K 6 ) s h is recommended for C-series circular- 
arcAlades and 0.7 for double-circular-arc blades. Both of these values 
were based on limited data. Plots of deviation angle versus camber, 
comparing values from equation (23) with cascade data of Emery et al 
(ref. 40) , are given by Lieblein (ref. 36) . Equation (24) approximates the data 

quite well. However, at high cambers where D- factors exceed 0.62, the 
experimental data tend to fall above the predicted values. Blade sec- 
tions operating at D-factors greater than 0.62 evidently have blade 
surface boundary layers thick enough at i ref to cause the flow to differ 
significantly from the potential flow for which a linear relation between 
deviation angle and camber angle is predicted. A quantitative evaluation 
of deviation angle as a function of camber for D-factors greater than 
0.62 is currently lacking. 

Both methods previously described assumed the incidence angle to 
be fixed at some "design" value. In the following paragraphs, methods 
to predict the deviation angle at "off-design" values of incidence angle 

are reviewed. 

Incidence angle effects: The deviation angle of a plane cascade 

is a function of the incidence angle in addition to blade geometry. A 
typical curve of deviation angle as a function of incidence angle for a 
cascade with a fixed inlet flow angle is shown in figure 9. The devia- 
tion angle curve can be roughly divided into two parts, one corresponding 
to the so-called low- loss incidence angle interval and the other corre- 
sponding to incidence angles outside the low-loss interval. When the 
incidence angle is in the low-loss interval, the blade surface boundary 
layers are probably quite thin, so that the flow closely approximates 
potential flow. Therefore, in the low-loss region, the functional rela- 
tionship between deviation angle and incidence angle for a two-dimensiona 
cascade is quite similar to the relationship for potential flow. Lieb e 
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(ref. 46) concluded, based on calculations using the potential flat plate 

flow theory of Weinig (ref. 47), that (ff) ref is positive for potential flow 

and that it is a function of solidity and blade chord angle . Smith (ref. 48), 

in a discussion of reference 46, indicated that fjr) i s also a strong 
function of camber. Vdi/ref g 

Using the low-speed cascade data for 65-(A 10 )10 blades of reference 
40, Lieblein developed an empirical method to estimate the variation of 
deviation angle in the low- loss incidence interval. He assumed that 
since operation could be considered to be in the low- loss region for 
only a small incidence angle interval, the following linear function 
could be used to compute deviation angle: 


waere 


6 = 


6 - and 

ref 


6 c + 
ref 


(i - i 

\ refAdi/ . 

' ref 


are determined at 


(25) 


Lieblein presented 


ref' 

may be obtained for 


0 


rer \Qi/ret x “ 

a family of curves from which values of ^ 

n°! ld 7 no eS ^ n8ing fr ° m °. t0 1 * 8 ’ and for inlet air angles ranging from 
t> to 7U . These correlations are also presented in reference 36. 

Because the 65-Series cascade data (ref . 40) were obtained with inlet 
air angle fixed, the (~) ref obtained from Lieblein 's curves is appli- 
cable to a constant inlet air angle cascade, while, as Smith (ref. 48) pointed 
out, in practical applications the blade setting angle, Y , is fixed and 

the inlet; air angle varies. Smith (ref. 48) developed relations to obtain 
r d 6\ 

di /ref a PP licable to fixed-y blade rows from Lieblein 's correlations 

and gave a numerical example in which the fixed-y derivative was larger 
than the fixed- g-^ derivative by a factor of three for NACA 65- (12) 10 
blades with a • 1.0 and ft - 60°. Figure 10 shows the variation of 

With i . nci , dence angle from reference 40 for the NACA 
65-(12)10 blades of Smith s (ref. 48) example at a constant inlet air angle, 

ft = 60°. Date from reference 40 were crossplotted to obtain a second 
curve shown in figure 10 for the same blades with a constant stagger 
angle of 47.6 , which is the stagger angle of a cascade of NACA 65- (12) 10 
blades with = 60°, a = 1.0, and i = i ref computed using the cor- 
relations of reference 46. Graphically determined values of 

\di/ref 

are compared with values from Lieblein* s (ref. 46) correlation and Smith (ref 48) 
caiculation Based on the differences in this example, it appears that 
e fixed-y derivative should be used in preference to fixed-ft deriva- 
tives in analysis applications when computing the change of deviation 
angle for a change of incidence angle in the low-loss incidence angle 
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interval. Smith (ref. 48) also pointed out that because the fixed-Y privative 
was strongly dependent on camber, the fixed- Pi derxvative should be also. 

Howell (ref. 49^ presented a single curve for (6 - 6 nom ) / e nom as a fun f" 
tion of (i - i n om)/e n om where the noininal conditions occur at 0.8 of the 
turning angle at which the loss is twice the minimum value. 

Apparently no method (empirical or analytical) has been published 
as vet to predict the functional relation between deviation angle and 
incidence angle outside the low-loss incidence angle interval, even for 
a plane two-dimensional cascade flow. 

Axial velocity ratio effects: It is well known that the deviation 

angle in a rectilinear or plane cascade depends on the ratio of the 
leaving to the entering axial velocities (AVR). Katzoff et al. (ref. 5 ) 
among others reported the phenomenon in 1947 Because of thiseffect, 
discrepancies exist between deviation angle data measured under 
dimensional conditions in cascades with side and end wall suction and 
data measured in similar cascades with solid walls. The leaving axial 
velocity in a solid wall cascade is usually higher because of the general 
increase of boundary layer thickness and particularly because of regions 
of separation in the corner where the blade suction surface intersec 
the side wall. These regions of separation reduce the ef fee ive 
area which raises the general level of axial velocity leaving the blade 
row ’ Elimination of these regions of separation and establishment of a 
constant axial velocity through the cascade can be accomplished by con- 
tinuous boundary -layer removal through porous walls, as described in 
Erwin Ld Emery y (re y f. 51). A constant .axial L velocity i. i- ° f 
continuity for the two-dimensional flow of an incompressible fluid. 

The changes in flow through a cascade as axial velocity ratio 
chanees may be described by considering the accompanying change in 
future distribute. If the losses are assumed constant for a small 
change in AVR, then the static pressure rise across a blade in a aaaaade 
decreases (increases) as AVR increases (decreases), assuming 
sible flow The resulting change in pressure distribution is lllustr 
in figure 11 In general, the airfoil circulation may also be expected 
To fSnge as " AVR vfries. Tha magnitude of the change in circulation has 
a dlrec t effect on the change in deviation angle. Ew.la.tinf ! circula- 
tion using the path EFGH of figure 12, assuming s x - s 2 , yields the 

result 


From the velocity diagrams in figure 12 it is that the d«la- 

tion angle will decrease as AVR increases, if circulation increases 
(i e V 2 decreases) or decreases less than an amount that allows V 0>2 
to* increase by more than d units. Similarly if circulation decreases 
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° r A^ C ^ eaSeS leSS th ? n 3 crit . ical amount, deviation angle will increase 
as AVR decreases. In fact, available experimental results (refs. 50 to 53) indi- 

cate that deviation angle does decrease with increasing AVR and increases 
with decreasing AVR, although the data of reference 51 indicate that 
circulation decreases slightly as AVR increases. A reasonably complete 
summary of empirical, semi-empirical and potential flow methods for cal- 
culating axial velocity ratio effects is presented in reference 54. 

Thickness and camber distribution: Factors are presented in refer- 

ence 36 which compensate for the differing thickness distributions of 
65-series, C-series circular-arc, and double-circular-arc blades. 

Though this correction is rather small, the data of reference 55 (e.e 
figure 5 7 of that reference) indicate that camber distribution may have 
significant effects on deviation angle, at least at off -design incidence 
angles. For double-circular-arc blade sections, however, predicting 
this effect does not seem especially important. 

Trailing-edge thickness effect: Minor geometric parameters, such 

as trailing-edge thickness, apparently have negligible effect on devia- 
tion angle for normally specified values (refs. 37, 55 and 56) . 

Miscellaneous effects: The effect of fluctuation of circulation 

and other unsteady flows on deviation angle is unknown. Cavitation and 
Mach number effects are listed for completeness, but are beyond the 
intended scope of the present method and will not be considered further. 
Surface finish, turbulence level and Reynolds number did not signifi- 
cantly affect the pump data available for correlation and hence were not 
considered in detail. 

Extension of Stationary Plane Cascade Methods and 
Results to Pump Rotor Flow 


If the previously mentioned two-dimensional cascade loss and devia- 
? n aa f* e P redicti °n methods are to be extended to serve usefully in 
axial-flow pump design and analysis, the significant differences exist- 
ing between stationary cascade and axial-flow pump flows need to be 
identified and considered. Many of the complicated features of pump flow 
ln ^ erentl y absent in the cascade environment. Whereas the flow 
rough a typical axial-flow pump blade row is three-dimensional and 
unsteady, the flow through plane cascades is mainly steady and two- 
dimensional. The three-dimensionality and unsteadiness associated with 
typicai pump flow stem mainly from blade divergence and twist and rotor 

”4 a * 1V ? reSP6Ct t0 the fluid and stationary annulus walls 

iS lade !' features usually not found in plane cascades. At constant 
spee d , a typical pump rotor blade section operates with unchanging blade 
setting angle as incidence changes with flow rate. Most plane cascades 
S i! 1 °P erated Wlt b incidence variation accomplished by changing 
sea e blade setting angle while maintaining constant relative inlet 
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angle. In a large portion of the plane cascade work, end wall boundary 
layer effects on the resulting flow were minimized by fluid removal. 

The flow through an axial-flow pump blade row on the other hand is appre- 
ciably influenced by end wall boundary layers. 


Within the time available for developing loss and deviation angle 
prediction methods, it was decided that axial- flow pump experiments 
data correlation would be most practical and therefore should be pursued. 
Available for this purpose was a substantial amount of axial-flow pump 
rotor experimental data obtained at the NASA Lewis Research Center (ref. 57). 
Pertinent information related to these rotors is given in Table I. To 
minimize analysis time and cost, five rotor configurations were selected 
as representative of the range of geometry and design variables present 
in the twelve rotor configurations for which data were initially avail- 
able The five selected, indicated by asterisks in Table I, were used 
exclusively to obtain the correlations explained below. Configurations 

07 and 09 differ only in the number of blades and the chord length. 

The hydrodynamic design is identical for configurations 5, 6, 8, 9 and 
10 but configurations 5 and 6 have 9-in. diameters while configurations 

8 9 and 10 have 5-in. diameters. The only other differences among 
these five configurations are the tip clearance values. Configurations 
13 and 16 have the same blade angles but different blade section pro- 
files. The double-circular-arc profile of configuration 13 is the more 
conventional profile and thus configuration 13 was chosen instead of 
configuration 16. Configuration 15 data were reserved to test the 
resultant correlations. Although the two-parameter correlation P hil ^“ 
ophy served well in working with plane cascade data, the minimum number 
of axial- flow pump data correlation parameters necessary was felt to be 
three. An explanation of the development of the various parameters 
associated with the three-parameter loss and deviation angle correlation 
options available with the present off-design analysis computer program 
follows. 


Toss orediction. - Swan (refs. 8 and 9) claimed reasonable success in corre- 
1 a t ing^~axia 1 - f low ~comp r e s s or blade-element profile and secondary losses 
using Lieblein ' s DEQ (modified slightly for use with compressor rotor 

to COS p 2 

flow) and 9/c as calculated from f - — “ “ s correlating para- 

meters Additionally, spanwise location was used as a third correlating 
parameter for minimum-loss data and inlet relative Mach number was used 
as the third correlating parameter for off -minimum- loss data. In v 
of this fact, it was felt that appropriately modified versions of 
Lieblein' s DEQ and 0/c relationships, plus at least one other independent 
correlating parameter, might serve as the base for an axial -flow pump 
blade-element data correlation method. The modification of DEQ for use 
with pump rotor and stator flows is outlined in Appendix A. The results 

are: 
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and 
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Several parameters related to Lieblein's (0/c) parameter for plane 
cascades were identified as possible candidates for use with the axial- 
flow pump data. These were: 




E 




4 H 0 




(29) 

(30) 

(31) 

(32) 

(33) 
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Note that (g/c) A and (0/c) D are abbreviated forms of Lieblein’s rela- 
tionship for 0/c for plane cascade flow that was shown earlier (equation 
20) to be suitable for correlating plane cascade minimum loss data (ref . 36), 
Derivations of (0/c) s and (0/c) c have been included in Appendix B. The 
derivation of (9/c) E is given in reference 58. 

A ’’blade -loading” parameter used extensively in compressor design 
and sometimes for correlating compressor off-design loss data is the 
D-factor modified for 3-dimensional flow, as shown in Appendix C: 


D = 1 
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(35) 


In order to "test” the various relationships for blade wake momentum 
thickness parameter for suitability as experimental data correlators, 
each was used with the pump data provided by NASA. DEQ and D as expressed 
by equations (27-28) and (34-35), respectively, provided an indication 
of blade loading level. In order to ascertain possible effects associated 
with spanwise location that are not strongly reflected in the expression 
for wake momentum thickness and loading, suitability tests were performed 
on data from similar spanwise locations only. As indicated in figures 13, 
(9/c) A and (0/c) E appeared to be about equally more suitable than the 
other 0/c relationships as experimental data correlators. Similar trends 
were indicated when D-factor was used as the abscissa variable. Neither 
(0/ c ) A or (0/c) E seemed to be entirely satisfactory. Nevertheless, since 
(0/c ) A is the simpler relationship, it was selected as the wake momentum 
thickness parameter to use in constructing the three-parameter loss 
tables involving (0/c) A , spanwise location and DEQ or D. The tables 
are represented graphically in figures 14 and 15. The curves shown are 
indicative of the trends demonstrated by the NASA axial- flow pump rotor 
data in figures 16 and 17. 

In order to ascertain the worth of the three-parameter loss tables 
mentioned above, with respect to a two-dimensional cascade data related 
method for calculating losses, an option involving equations (27) or (28) 
for DEQ, equations (20) for loss coefficient and the two-dimensional 
cascade loss data indicated in figure 18 was made available. 


Devia tion angle pr edic tion. - In addition to those items influencing 
deviation angle previously discussed in the Stationary Plane Cascade 
Section, the following can be identified for the three-dimensional flow 
through a typical axial- flow pump rotor: 
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corner stall, 
tip clearance, 

annulus wall boundary layers, 
radial gradients of circulation, 
radial flow of blade boundary layer fluid 
blade row interaction parameters, and 
blade sweep and dihedral angles 


bab ^direct ly^f feet the ‘j le ? r f l ? ce flow ’ while important locally, pro- 

<* a and%fcL°fLLTr e 1 Lck rCen f a ® e 

empirical correlations, the influence of corner staU and Mn c? 

O” “ as n0t dlraatly “counted for in the patent correlation? “ 


blade P "» a t??d? f tr??J?lt“in l l b ° U ’i‘ da ’ :y layerS in the fl °" approaching a 
angles. This phenoLnon has dayiatl °" 

curved channels in reference 5 L f! 5 G Slmpler case of 

reference 60 . it is also iJcludS • lu tw °- dlmensional cascades in 
erence 61 . However in all r tu m ° re general analysis of ref- 

and the then™ does ™t aone It T„\ l £1 °",‘ nC,dal highly idealised, 
where skewed boundary lay«s and ti? 7 applicable to real flows 
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yields a quadratic equation in vJ )C . The corrected diagram can then 
be computed from the appropriate root V 2jC , U 2 » and V z>1 - The expecta- 
tion was that 5 from either of the iterative approaches would more 
closely approximate the measured deviation angle than a value computed 
directly from Carter's rule using the actual blade section camber. How- 
ever the comparison of results in figure 22 shows that the corrected 
deviation angles are generally smaller than the deviation angles from 
Carter's rule which are in turn much too small over most of the blade 
span for the high loaded rotors in figures 22b and 22c. These results 
are typical for all the rotor configurations and for other flows. Based 
on these results these correlation approaches are also discarded. 

An approach similar to the iterative, constant circulation one dis- 
cussed above with a variable exponent on the camber term in the function 
used to compute 5 ^ , namely 


6 = 

c 



(43) 


was tried next. In this case, the exponent was chosen so that 


6 


c 


exp 


(44) 


Values of b computed at all radial positions for operation at reference 
incidence angle are given in figure 23. The exponents show a consistent 
trend except at the hub and tip for configuration 02. This configura- 
tion is a low hub-tip ratio, lightly loaded rotor intended to typify a 
transition rotor, located between a lightly loaded inducer and high 
loaded main stages. With the subsequent development of higher loaded 
inducers (ref. 65) , this type of rotor is not likely to appear m a multistage 
pump. Therefore, the fact that the exponents from configuration 02 fall 
outside the band in figure 23 is not considered a major deficiency in the 
method, although it indicates a lack of generality. 


As another approach, the method just described was simplified by 
using the actual blade camber instead of a corrected camber in the func 

tions for 


6 


c 



(45) 


The exponent was again chosen so that the following expression was 
obtained: 


5 = 
c 


6 


exp 


(46) 
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The resulting exponents are shown as a function of percent passage height 
in figure 24. The band of data is about the same width as that in figure 
23, except at the tip section where the exponent for configuration 07 
shows more scatter. This was considered the most promising approach for 
predicting deviation angles at reference incidence angle operation. A 
preliminary check on the method was made by calculating deviation angles 
for the five configurations using equation (45) , where b was obtained as 
the mean line of the band in figure 24. The results are given in Table II. 
Excluding configuration 02, the deviation angles, 6 C , computed from 
equation (45) are within + 2.6° of the measured angles, which is a sig- 
fioant improvement over Carter s rule. Note that because the camber 
of configuration 07 is small at the 10% station, the large scatter in 
the exponent (figure 24) resulted in only a 1.3° discrepancy in deviation 
angle. However, this is still a large percentage of the relative turn- 
ing angle. 

Incidence angle: Prior efforts to predict deviation angles at off- 

reference incidence angles are mainly represented by Lieblein's correla- 
tions (ref. 36) of two-dimensional low-speed air cascade results. In this 
correlation, values of d6/di are presented as a function of solidity and 
inlet flow angle. The d6/di is always positive and only applies to inci- 
dence angles near i re f. However, in the analysis problem it is necessary 
to predict deviation angles over the entire range of operation and not 
just near i ref . Furthermore, as illustrated by data in figure 25, the 
slope d 6/di is not always positive for pump rotor blade sections even 
at i-ref* The incidence angle corrections of reference 36 are clearly 
inadequate and the characteristics of data in figure 25 preclude any 
possibility of a simple functional relationship of the form 

6 " 5 ref f ( A i ref ) * ( 47 > 

The method involving equations (43) and (44) described earlier was 
also applied at off-reference conditions to obtain values of camber 
exponent b. The results are shown in figure 26 for five spanwise posi- 
tions. If configuration 02 data are excluded, a consistent trend is 
exhibited near the tip and hub but considerable scatter exists in the 
midspan data at low incidence angles. 

Very similar results were obtained when the camber exponent was 
computed using the actual camber equation (equation 45). These results 
are presented in figure 27 . At the tip section the exponents for con- 
figuration 07 fall above the others, which is consistent with results 
in the previous section. In spite of the greater scatter in figure 27 
as compared to figure 26, the simplicity of using actual blade camber 
instead of an equivalent capiber obtained by an iterative calculation 
suggests its use. Lines fitted through the data of figure 27 are shown 
in figure 28. These variations of the exponent b and the relationship 
expressed by equation (45) together form a method for calculating devia- 
tion angles that is avai lable as a program option. 
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Reference incidence angle . - Associated with the loading parameter, 
DEQ, and the three-parameter off-design deviation angle correlation 
method involving the camber exponent b, i - i re f and spanwise location 
(fraction of passage height from the tip), is a reference incidence 
angle, i re f. Two possible reference incidence angles were considered: 

(1) a reference incidence angle based on the experimental rotor data 
for a given blade element; and (2) the reference incidence angle which 
would be predicted for the given geometry using the two-dimensional cas- 
cade correlations of reference 36. Basing the reference angle on the 
experimental rotor data seems attractive at first, but is not possible 
because of the complicated nature of flow in rotors. For example, the 
loss coefficients measured for blade elements at 50, 70 and 907 o of pas- 
sage height from the tip often are very low and change very little over 
the entire test incidence angle interval, making it impossible to deter- 
mine a reference angle as defined in reference 36. Typical examples of 
flat loss-coefficient distributions for these blade elements are shown 
in figure 29. Sometimes the loss coefficients increase or decrease as 
a function of incidence angle with no minimum value defined, as illus- 
trated in figure 30. In either case, the reference incidence angle 
cannot be defined as in reference 36. Even in the few cases where the 
experimental loss coefficient curves allow the reference incidence angle 
to be defined (figure 31), the incidence angle so obtained may be mis- 
leading because the loss indicated from measurements downstream of the 
rotor is probably a distorted indication of the loss generated by that 
element. It may be more or less than the actual loss generated by the 
flow around the blade section because of the migration of low momentum 
fluid along the blade and annulus surfaces (ref. 66). For these reasons a 
reference incidence angle based on the experimental rotor data was not 
used. 


Instead, a reference incidence angle based on the correlations of 
reference 36 was chosen. These correlations were derived from cascade 
data obtained with fixed inlet flow angles, i.e., the incidence angle 
was varied by re — setting the blades, and hence the correlation lTicor 
porates inlet flow angle as a parameter rather than stagger angle. 

Since rotor blades have fixed setting and variable inlet relative flow 
angles, the correlations of reference 36 do not directly yield a single 
reference incidence angle for rotor blade elements. However, a unique 
reference angle can be obtained by an iterative procedure as follows 
(ref. 67) : 


1. an initial estimate of i re f is made; 

2. from the known blade angle and the estimated i re f, a corre ~ 
sponding inlet relative flow angle is calculated; 

3. using the calculated relative flow angle and the correlations 
of reference 36, a new value of i re f i- s obtained and compared 
with the estimated value; and 

4. if the calculated and estimated values of i re f are different, 
the estimated value is revised and steps 2, 3, and 4 are re- 
peated until convergence is obtained. 
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This procedure contains the implicit assumption that the same 
reference incidence angle would be measured in a constant blade setting 
angle cascade (y = constant) and a constant inlet flow angle cascade 
L3l ~ 6-ref) £ + CL1> where a* is the inlet blade angle corresponding to 
v= constant]. This assumption is not strictly correct as noted in 
reference 36 and illustrated by cross-plotted data (ref. 40) in figure 32. 
For this example, the reference incidence angle for a constant setting 
angle cascade is 1.2° less than for a constant inlet flow angle cascade. 
Applying the reference incidence angles obtained from reference 36 also 
involves the assumption that the reference incidence angle is not depen- 
dent on the axial velocity change across the cascade because the axial 
velocity ratio was about 1.0 for the data correlated in reference 36 
while axial velocity ratios ranging from 0.55 to 1.40 were measured 
across the rotor blade sections. No attempt has been made to evaluate 
the possible change of reference incidence angle caused by the change 
in diffusion accompanying axial velocity ratio changes. While the 
assumptions involved were recognized, the i f obtained from reference 
36 was considered to be the most consistent and best estimate available 
for the reference incidence angle. 


Specific ex perimental data correlations . — A less general data 
correlation method for individual pump rotors was also determined. As 
mentioned previously the blade chord Reynolds numbers associated with 
the axial-flow pump experimental data were high enough to justify 
neglecting Reynolds number effects. It seems reasonable then to assume 
that the experimental data blade-element non-dimensional velocity dia- 
grams (all velocities non-dimensionalized with tip speed), and therefore 
loss coefficients and deviation angle, will be mainly dependent on aver- 
age flow coefficient in addition to spanwise location and blade row 
geometry. Based on this assumption, tables of experimentally determined 
loss coefficients and deviation angles as functions of exit streamline 
spanwise location (radius) and effective average inlet flow coefficient 
can be constructed for specific rotor configurations. In such loss and 
deviation angle correlations, appropriate effective inlet flow area to 
annulus area ratios as a function of flow rate are required. These 
ratios permit the calculation of effective average flow coefficients 

from theoretically computed ones determined in a radial equilibrium 
solution. 


In all of the other loss correlation methods discussed, the result- 
ng predicted loss is strongly dependent on the calculated exit flow 
conditions via the loading parameter D or DEQ. Inherent with the speci- 
fic loss correlation method presently described is a weak relationship 
between predicted loss and calculated exit flow conditions via exit 
radius. This difference accounts partly for the solution stability 
associated with using the specific loss correlation method. 
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COMPUTER PROGRAM CAPABILITY AND UTILIZATION 


As already outlined in the solution method, the performance pre- 
diction program is based on numerical solution for radial equilibrium 
and continuity requirements in the meridional flow at axial stations 
between blade rows in a given pump configuration. Blade-element head 
losses, deviation angles, and reference incidence angles are estimated, 
based on available correlated data tables. Simple radial equilibrium, 
accounting for streamline shift across a blade row but ignoring stream- 
line slope and curvature at computing stations, is employed. Blade 
elements in a blade row defined by streamlines as determined in the 
solution are the basis for the computed blade-element performance. 

Input to the program includes pump annulus and blade geometry, 
rotational speed, flow rate, and reference data tables for head loss 
and deviation angle calculations. Number of streamlines at which the 
numerical solution is made is also prescribed by the user. The geometry 
data describing the annulus inner and outer radii and blade element 
geometric parameters are inputed in tabular form for between blade-row 
stations. Flow rates are also given in the form of tables assigning 
radial distributions of flow velocity and total head at the inlet 
station to the pump. Using these input tables for the flow at the inlet 
station, the program computes flow rate and establishes streamlines 
which are followed in calculation of the flow solution through the blade 
rows. Extensive use is made of interpolation procedures in the program 
to obtain blade-element results from the various data tables. Both 
blade-element and mass-averaged rotor or stage performance is computed 
and outputed by the program. 

Overall operation of the program for a given pump performance 
problem is formed in two nested iteration loops. These are a head 
loss iteration loop, and a radial equilibrium and continuity iteration 
loop nested within, both of which require initializations. Blade- 
element head losses are initialized zero prior to solution at the be- 
ginning flow rate for a given rpm, while a base streamline velocity is 
assigned an approximating average value corresponding to the beginning 
flow rate. The same basic calculation scheme is used for any blade 
row, rotating or stationary, for any given rotational speed and flow 
rate of the pump. However, the program input and calculations are 
arranged so that successive values of flow rate are computed along lines 
of constant rpm. (Beginning flow rate for a constant rpm line is 
generally high relative to the design flow, since loss of radial 
equilibrium solution may be encountered at lower assigned flow rates). 

In this process, the solution, including head loss distribution ob- 
tained at the preceding flow rate, is used as initialization of iterations 
at the next flow rate. 
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In the following sections, explanation of program input load prepara- 
tion is given along with a detailed discussion of the program. Descrip- 
tions, including flow diagrams and glossaries, are given for the main 
program and each subroutine. A complete listing of the program and 
sample program loads and outputs are contained in Appendices D and E. 


Input Load Description 


In this section a working description of input load preparation is 
given to enable the program user to estimate off-design performance for 
arbitrary pump configurations and operating conditions. 

Input is identified by card packets which carry an identification 
number (ID) in the first two columns of each card. The ID is read by 
the program as the data are loaded into the computer to check the ordering 
of input cards. If incorrect ordering is detected, an error message is 
printed and calculations terminated. 

The card packets and their arrangement in particular card packet 
sets are described below. The numerous options that exist within an 
input data load are explained. Also sample data loads are presented 
for purposes of illustration. 

Card packet sets . — Input is ordered in terms of six basic sets of 
card packets. These card packet sets, referred to for convenience by the 
initial card packet in each set, are as follows: 

a) Card packet set 10 — limit specifications card for pump con- 

figuration 

b) Card packet set 18 — head loss and deviation angle specifica- 

tions per blade row of configuration 

c) Card packet set 30 - geometry data per blade row of con- 

figuration 

d) Card packet set 50 — assigned rotational speed (rpm) per 

blade row of configuration 

e) Card packet set 70 — base streamline axial velocity initiliza- 

tion card corresponding to first flow 

rate 
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f) Card packet set 80 — assigned flow rate, inlet conditions, and 

axial station effective flow area factors 

Card packet sets 18 for all the blade rows of the pump configuration 
are loaded before proceeding to packet sets 30. The same is true for 
packet sets 30, before proceeding to packet sets 50. Multiple rpm 
calculations are made by successively loading packet sets 50, each 
followed by packet sets 80 for the appropriate flow rates. Finally, 
multiple pump configurations may be loaded, each starting with packet 
set 10, followed by sets as described above. 


Card packets: 


ID 

Card Col. 

Format 

Data Input 

10 

CM 

* 

12 

identification number, ID 


3,4 

12 

number of blade rows plus 1, ILIM 


5,6 

12 

number of streamlines, JLIM; >3, < 20 


00 

12 

base streamline number, JBASE; > 1, < JLIM 
(but generally taken near mid-radius of the 
annulus) 


9-14 

16 

problem run identification, IRUN 


15-20 

F6.4 

tolerance value for head loss iteration, THL 
(ratio of change in computed head loss to 
previously computed head loss) 

18 

CM 

rH 

12 

ID 


5,6 

12 

blade row number 


7-13 

F7.4 

blade row reference radius, RSTAR, ft 

19 

1,2 

12 

ID 


3,4 

12 

blade row option for head loss calculation, 
IEXLOS 


5,6 

12 

blade row option for deviation angle calcula- 
tion, IEXDEV 

20 

1,2 

12 

ID 


3,4 

12 

number of elements in PHIBB array (packet 21) 


for blade row; > 3, < 20 
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ID 

Card Col. 

Format 

Data Input 


5,6 

12 

number of elements in XPB array (packet 22) 
for blade row; > 3, < 20 

21 

1,2 

12 

ID 


3-7 

F5.4 

reference table of inlet flow coefficient for 


68-72 

m 

0 

• 

F5.4 

blade row, PHIBB 

22 

1,2 

12 

ID 


3-7 

F5.4 

reference table streamline radius at outlet 


68-72 

F5.4 

of blade row, XPB, ft 

23 

1,2 

12 

ID 


3,4 

12 

card identification (visual checking only) 


5-9 

F5.4 

reference table (for blade row) of head loss 


70-74 

• 

• 

• 

F5.4 

coefficient, OMEGBB, function of PHIBB, XPB 

24 

1,2 

12 

ID 


3,4 

12 

card identification (visual checking only) 


5-9 

F5.4 

reference table (for blade row) of flow 
deviation angle, DEL2B deg., function of PHIBB, 


• 

# 

70-74 

• 

• 

• 

F5.4 

XPB 

25 

1,2 

12 

ID 


3,4 

12 

number of elements in XDBB or DEQBB array 
(packet 26) for blade row; > 3, < 20 


5,6 

12 

number of elements in RPBB array (packet 27) 
for blade row; > 3, < 7 

26 

1,2 

12 

ID 
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ID 

Card Col. 

Format 

Data Input 


3-8 

F6.4 

reference table of D-factor or equivalent 
D- factor, XDBB or DEQBB, for blade row 


69-74 

F6.4 


27 

1,2 

12 

ID 


3-8 

F6.4 

reference table of fraction of passage height 
from outer casing, RPBB, for blade row 


69-74 

F6.4 


28 

1,2 

12 

ID 


3-8 

F6.4 

reference table (for blade row) of wake momentum 
thickness /chord, THACBB, function of XDBB or 
DEQBB and RPBB 


69-74 

F6.4 


30 

1,2 

12 

ID 


3,4 

12 

blade row number 

31 

1,2 

12 

ID 


3,4 

12 

number of elements in geometry arrays (packet 
32) for blade row 

32 

1,2 

12 

ID 


3,4 

12 

blade row identification (visual check only) 


5,6 

12 

number of radial position, J 


7-13 

F7.4 

reference radius at blade row inlet, X, ft 


14-20 

F7.4 

blade element leading edge camberline tangent 
angle, ALFB, deg., function of X 


21-26 

F7.4 

reference angle radius at blade row exit, XP , ft 


27-33 

F7.4 

blade-element trailing edge camberline 
tangent angle, ALFPB , deg., function of XP 


34-40 

F7.4 

blade-element solidity, SGMAB, function of XP 
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ID 

Card Col. 

Format 

Data Input 


41-47 

F7.4 

blade-element maximum thickness/chord, TMXCB, 
function of XP 


48-54 

F7.4 

blade -element reference incidence angle minus 
cascade rule incidence angle, FI2DB, deg., 
function of XP 


55-62 

F7.4 

blade-element wake form factor, FHB, function 
of XP 


63-69 

F7.4 

Shape correction factor, FKSHA, function of XP 

50 

1,2 

12 

ID 


3-8 

F6.4 

blade row rotational speed, rpm 

70 

1,2 

12 

ID 


3-8 

F6.4 

initializing base streamline axial velocity, 
ft/sec 

80 

1,2 

12 

ID 


3-8 

F6.4 

flow rate calculation identification number, 
PHI RUN 

81 

1,2 

12 

ID 


3,4 

12 

number of elements per array (packet 82) , 
> 3, < 20 

82 

1,2 

12 

ID 


3-8 

F6.4 

reference radius at inlet station, XI, ft 


9-14 

F6.4 

fluid axial velocity at inlet station, VZB, 
ft/sec, function of XI 


15-20 

F6.4 

fluid whirl velocity at inlet station, VUB, 
ft/sec, function of XI 


21-26 

F6.4 

total head at inlet station, HB, ft, function 
of XI 


27-32 

F6.4 

• 

reference radius at inlet station, XI, ft 


45-50 

F6.4 

total head at inlet station, HB, ft, function 


of XI 
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ID 

Card Col. 

Format 

Data Input 


51-56 

F6.4 

reference radius at inlet station, XI, ft 


69-74 

F6.4 

total head at inlet station, HB, ft, function 
of XI 

83 

1,2 

12 

ID 


3-8 

F6.4 

effective flow area/annulus area, ARFAC, per 
successive axial calculation station 


69-74 

F6.4 



Blade rows are numbered sequentially through a pump configuration, 
starting with the first blade row as blade row 1. Axial stations are 
also numbered sequentially through the configuration, starting with the 
inlet station to the pump as station 1. 

Card packets 20-24 (optional) constitute user supplied reference 
tables of head loss coefficient and flow deviation angle as a function 
of inlet flow coefficient and leaving streamline radius for the blade 
row. This is true also regarding packets 25-28, in which tables of wake 
momentum thickness/chord are inputed as functions of D-f actor (or 
equivalent D-factor) and fraction of passage height from the outer casing. 
As many cards as necessary are used in packets 21-24 and 26-28 to fill 
out the specified arrays. 

In packet 21, the reference flow coefficients given are to 
be consistent with flow coefficients based on blade speed computed 
by the program using the supplied reference radius in packet 18 and the 
given rotational speed. For a stationary blade row, the reference 
blade speed is based on the reference radius for the blade row and the 
rotational speed of the rotor of the pump. In the case of no rotor, 
reference blade speed is taken as unity, and reference radius is ignored. 

Radius values given in packets 22, 27, 32, and 82 should range 
across the entire annulus at the axial station considered to include 
hub and casing locations. 

User supplied blade-element geometry data in packet 32 are to 
conform with the sign convention previously noted. Wake form factor 
and blade section geometry correction factors are as presented in the 
section BLADE-ELEMENT LOSS AND DEVIATION ANGLE PREDICTION. 

In packet 50, rotational speed - 1 indicates a new pump configura- 
tion follows immediately (starting with packet 10) . 
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Packet 70 accompanies only the first flow rate to be calculated 
for a pump configuration. 

Packet sets 80 for all assigned flow rates for a given rotational 
speed follow packet 50 (or 70). PHIRUN < 0 in packet 80 signals new 
rotational speed follows immediately (starting with packet 50). 

PHIRUN = 0 in packet 80 signals termination of calculations. 

Calculation options for head loss and deviation angle . — A total of 
six program options are available for calculation of blade-element 
head losses. These options involve correlated wake momentum thickness 
parameter and diffusion factor or equivalent diffusion factor, and 
blade-element radial location; or they involve correlated loss and 
flow coefficients and radial location. Three options are available 
for deviation angle calculations. These involve Carter's rule, a 
camber exponent modification of Carter's rule, or correlated deviation 
angle with flow coefficient and blade element radial location. 

The options are specified by the user per blade row of the pump 
configuration in terms of input values of IEXLOS and IEXDEV (card 
packet 19) as follows: 

IEXLOS = 1 specifies that the user is supplying a reference table 
of loss coefficient as a function of flow coefficient and radial posi- 
tion (card packets 20-23) for basis of head loss calculations. Card 
packets 25-28 for head loss are omitted. 

IEXLOS = 0 specifies that reference table of wake momentum thickness/ 
chord as function of equivalent D-factor from the BLOCK DATA routine is 
used for basis of head loss calculation. Card packets 20-23 and 25-28 for 
head loss are omitted. 

IEXLOS = - 1 specifies reference table of wake momentum thickness/ 
chord as function of equivalent D-factor and fraction of passage height 
from outer casing from the BLOCK DATA routine is used for basis of head 
loss calculation. Card packets 20-23 and 25-28 for head loss are omitted. 

IEXLOS = - 2 specifies reference table of wake momentum thickness/ 
chord as function of D-factor and fraction of passage height from outer 
casing from the BLOCK DATA routine is used for basis of head loss 
calculation. Card packets 20-23 and 25-28 for head loss are omitted. 

IEXLOS = - 3 specifies that the user is supplying a reference table 
of wake momentum thickness/chord as a function of equivalent D-factor 
and radial position (card packets 25-28) for basis of head loss calcula- 
tions. Card packets 20-23 for head loss are omitted. 
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IEXLOS = - 4 specifies that the user is supplying a reference table 
of wake momentum thickness/chord as a function of D-factor and radial 
position (card packets 25-28) for basis of head calculations. Card 
packets 20-23 for head loss are omitted. 

IEXDEV^ 1 specifies that the user is supplying a reference table 
of flow deviation angle as a function of flow coefficient and radial 
position (card packets 20-22, 24) for deviation angle calculations. 

IEXDEV = 0 specifies that Carter's deviation angle rule based on 
reference table from BLOCK DATA routine is used for basis of deviation 
angle calculations. Card packets 20-22, 24 for deviation angle calcula- 
tion are omitted. 

IEXDEV = - 1 specifies that reference table of deviation angle 
rule c amb er exponent as a function of incidence angle minus reference 
incidence and fraction of passage height from outer casing from BLOCK 
DATA routine is used for basis of deviation angle calculations. Card 
packets 20-22, 24 for deviation angle calculations are omitted. 

Sample input loads . — Two sample input loads are given in Appendix E. 
Listings of the input card decks are shown, with the ID numbers in the 
first two card columns for identification. These two sample problems 
were run on the Iowa State University IBM 360 Model 65 computer Operating 
System Release 21. Running time, including input and output, was less 
than one minute for each problem. The program outputs for each are in 
Appendix E. Discussion of program output is given in the following 
section. 

The first sample load is for a single stage composed of a rotor 
followed by a stator row. The annulus has constant hub and outer casing 
radii of 0.1500 and 0.3750 ft, respectively. The input load is set up 
to calculate performance for one rotational speed (3910 rpm) at two 
flow rates. As can be seen in packets 82, inlet data for each of the 
flow rates are given in terms of nine different radial positions across 
the annulus. Geometry data for the two blade rows are given in packets 32, 
each involving seven radial locations. No head loss or deviation angle 
calculation reference tables are inputed, since the IEXLOS and IEXDEV 
specifications in cards 19 show that reference tables from BLOCK DATA 
are to be used. 

The second sample is for a single rotor blade row in a straight 
annulus with hub and outer casing radii of 0.2625 and 0.3750 ft, 
respectively. With this input, performance is to be computed for two 
rotational speeds. The first is 3620 rpm as indicated by the first 50 
card, followed by the 70 card for base streamline velocity initialization 
and two 80 packet sets for the assigned flow rates at this speed. A 
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third 80 card follows, carrying the value - 1 and signaling that a 
second rotational speed follows. This rpm value (2890) is shown on the 
second 50 card. One more flow rate is then indicated by the one 80 
packet set. The final 80 card indicates termination of the calculations. 
The IEXLOS and IEXDEV head loss and deviation calculation options in 
card 19 for the second sample load are each indicated as 1. The cor- 
responding user supplied reference tables are included in packets 20-24. 


Program Output Description 


Sample program outputs . - Sample output listings from the program 
are given in Appendix E. These were produced using the two input 
loads just described. 

An output listing from the program begins with identification of 
the problem run, designated base streamline, and number of streamlines 
used in the solution. Data tables for reference incidence angle analysis 
(from BLOCK DATA routine) are printed out next. The additional data 
load to the problem is printed out at the starting flow rate for a rpm 
line on a blade row by blade row basis. This includes blade row rpm, 
reference radius, deviation angle and head loss calculation options 
specified, blade row geometry, and specified deviation angle and head 
loss reference data tables (these tables are printed whether obtained 
from input cards or from BLOCK DATA) . Variables can be identified by 
to the glossaries contained in the program descriptions of 
subroutines INOUT or INPUT. 


Output of computed results for a given flow rate begins with the 
listing of the inlet conditions. Flow rate identification (PHIRUN NO.) 
is based on the combined IRUN (card packet 10) and PHIRUN (card packet 
80) numbers. Calculated flow rate and entering and leaving blade -element 
radial equilibrium results follow, blade row by blade row. Blade -element 
results are printed in order from the outer casing in toward the hub. 
Mass-averaged results for a rotor or for a stage, and blade row identi- 
fication (I) follow the blade -element results. 

Column heading identifications in the input are the following (refer 
also to LIST OF SYMBOLS) . 


BETA 

flow angle, 3 

BETAP 

relative flow angle, (3* 

CMBR 

camber angle, 0° 

DEV 

deviation angle, 6 
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EFFIC 


efficiency, T) 

EQ D-FAC equivalent D factor, D 

HD LOSS head loss, H., 

loss 

INCID incidence angle, i 

J streamline or blade element number, j 

LOSS DIFF head loss relative difference, HLDP (see subroutine OUTPUT) 

OMEGABAR loss coefficient, <13 

7oPH F T percentage passage height from tip 

PHIl flow coefficient, 0^ 

PHI2 flow coefficient, 0^ 

PSI head coefficient, i|/ 

PHI I ideal head coefficient, 

R/R(TIP) radius ratio, r/r t 

R/RT(I) radius ratio, r/r t 

REF INC reference incidence, i 

ref 

STAG blade setting angle, y 

STAT HD static head, h 

(THTA/C) wake momentum thickness to chord ratio, (®/ c )^ 

TMAX/C maximum thickness ratio, t /c 

max 

TOT HD total head, H 

V(REL) relative velocity, V 1 

VU velocity, Vg 

VZ velocity, 

In the first sample output given, the results are shown for a stage 
(a rotor, followed by a stator row) for one rpm and two flow rates. 
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Twenty streamlines were used in the solution, and as indicated by the 
IEXLOS and IEXDEV parameter values, reference data tables from BLOCK 
DATA were used in computing blade element head losses and deviation 
angles in the rotor and in the stator. The extrapolation warning mes- 
sages given in the output are due to high stagger angle (> 70 deg.) in 
the rotor near the outer casing, and to high D eq (> 2.2) toward the 
hub in the stator. 

In the second example in Appendix E, the results are for a single 
rotor blade row. Two values of rpm were computed for, with two flow 
rates at the first rpm and one at the second. According to IEXLOS 
and IEXDEV, user supplied reference data tables for head loss and devia- 
tion angle calculations were read in from cards. 

Abnormal problem completions . — The following error or warning 
messages may be produced by the program in the case of abnormal problem 
completion: 

"Error in input data card order, MAIN program" 

An error has been detected by MAIN in checking ID on input 
cards. Problem is terminated. Refer to Section, Input Load 
Description to correct error. 

"Error in input data card order , subroutine INPUT. ID = xx I = xx 

K=xxL = xxJ = xx" 

An error has been detected in subroutine INPUT in checking 
ID. Current values of ID, I, K, L, J are printed out to help 
in correcting error. Problem is terminated. 

"Error in input - xx must be greater than 2 for interpolation, 

I = xx, ID = xx" 

Number of elements in an input data table has been detected 
as too small. The table delimiter and values of I, ID are 
printed out. Problem is terminated. 

"Warning - FITlD called in xx - extrapolation of table xx" 

An extrapolation of a reference data table has occurred in 
FITlD. The calling routine and table involved are identified. 
Problem calculation continues. 

"Warning - FIT2D called in xx — extrapolation of table xx" 

An extrapolation of a reference data table has occurred in 
FIT2D. The calling routine and table involved are identified. 
Problem calculation continues. 
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"IREF at streamline xx required extrapolation of tables because 
BTPl = xx deg" 

Analysis in subroutine IREF required extrapolation of reference 
incidence angle data tables from BLOCK DATA. Relative entering 
flow angle BTPl exceeds 75 deg. Problem calculation continues. 

"ALFl = 0 not allowed" 

Entering blade tangent angle ALFl has been computed as zero 
for a blade element in subroutine RADEQC. Problem calcula- 
tion continues with next inputed flow rate. 

"Radial equilibrium solution failed" 

Negative radicand encountered in iterations for radial equil- 
brium solution in subroutine RADEQC. Head loss iterations 
prior to failure are repeated and results printed out. 

Problem calculation resumes with next inputed flow rate. 

"Solution failure due to negative radicand during loss iteration" 

Message following "Radial equilibrium solution failed . 

Failure encountered during head loss iteration as indicated. 

"Solution for several loss iterations preceding failure are printed 
next" 

Message following radial equilibrium solution failure. 

"Solution for the loss iteration preceding failure is printed next" 

Message following radial equilibrium solution failure. 

"Loss solution not achieved in 40 iterations" 

Convergence of head loss iterations not achieved in limit of 
40 iterations. Problem calculation continues with next 
blade row or inputed flow rate. 

"Radial equilibrium and streamline radial adjustments not achieved 
in 10 iterations" 

Iterations for blade element leaving streamline positions in 
subroutine RADEQC did not converge in limit of 10 iterations. 
Problem calculation continues. 
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"Radial equilibrium at continuity not achieved in 20 iterations" 

Convergence not attained in continuity loop in limit of 20 
iterations in subroutine RADEQC. Problem calculation 
continues . 


Computer Program Description 


The complete calculation procedure for off-design performance estima- 
tion is under the control of program MAIN. Several subprograms or sub- 
routines (as shown in Flow Chart 1) are called upon by MAIN to accomplish 
certain specific tasks or calculations in the overall program execu- 
tion. Flow Charts 2-5 give a detailed outline of MAIN. Additional 
description of MAIN is given below, along with the Fortran symbol 
definitions. The same procedure is repeated, involving Flow Charts 6-21, 
in the sections following for the subroutines. 

In the Flow Charts, program segments have been identified by 
horizontal dashed lines for convenient reference. These segments are 
identified in the program listing (Appendix D) by inserted comments in 
the appropriate locations. In those instances where program calls of 
fitting routines FITlD and FIT2D are made, the purpose of the call is 
indicated in the Flow Charts by the parameter returned from the sub- 
routine, with those parameter (s) it is a function of in parentheses. 
Purposes of other subroutine calls are evident in the description and 
Flow Charts for the particular subroutine. 

Program MAIN . - The subprogram BLOCK DATA has been included 
here as a part of the description and symbol definitions, and as a part 
of Flow Chart 2 for program MAIN. This subprogram initializes blade 
element standard reference tables for head loss, deviation angle and 
incidence reference angle analyses. 

A direct responsibility of MAIN is the initialization of the radial 
equilibrium solution at all axial computing stations for head loss and 
streamline radii (at equal radial increments) according to the assigned 
number of streamlines for the solution through the pump. Also MAIN 
initializes the base streamline axial velocities at all axial computing 
stations according to the inputed base streamline value at the inlet. 

(It should be noted here that input card identifications (ID) are checked 
by the program, in MAIN or in subroutine INPUT during read operations. 

This checking has not been shown, however, in the Flow Charts. Also, 
checking of IWARN , and print out of warning messages in MAIN and the 
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Flow Chart 1 























subroutines noting extrapolation in fitting procedures (IWARN = 2) 
have not been included in the Flow Charts.) 

Also program MAIN is responsible for identifying the Run No. for 
the pump operating point. Pump inlet flow conditions are set up* for 
the solution according to the given pump operating point conditions and 
number of streamlines; flow rate, average flow coefficient, and stream- 
function values are computed by simple quadrature of the inlet station 
axial velocity profile. Effective flow coefficients per axial computing 
station for loss and deviation analyses are computed from given effective 
area factors and blade speeds. 


, «*™ CC i SSiVe axialcalculati °n stations through the pump are controlled 
by MAIN; loss and deviation angle reference tables are set up according 
to the input options per station. Flow conditions entering a blade 
row are set up prior to the head-loss and radial equilibrium solution 
for the flow leaving the blade row. Iterations (with a maximum of 40) 
for head losses are monitored by MAIN with actual loss calculations 
performed in subroutine LOSS. Convergence of head losses according to 
a given tolerance value, and revised head loss distribution per head 
loss iteration are determined by MAIN. Radial equilibrium, continuity 
and streamline radial adjustment calculations are performed in subroutine 
RADEQC interior to the head loss iteration loop. 

In case of loss of radial equilibrium solution during any one head 
loss iteration, iterations are re-initialized and then repeated, but 
only up through the head loss iteration immediate to the unsuccessful 
one. The calculated results for the final repeated iterations (maximum 
of three, for four iterations and beyond) are outputed, even though a 
valid converged solution has not been obtained. 


Program parts of MAIN in the accompanying Flow Charts 2-5 are 
identified as follows: 


Flow Chart 2 


Program segments "Input problem geometry and reference 
tables " "Initialize streamline radii, head loss and base 
streamline velocity" and "Input pump inlet conditions, 
axial station blockage factors and compute stream function 
distribution" of program MAIN. 


Flow Chart 3 


Flow Chart 4 


Program segments "Compute station annulus area and effec- 
tive flow coefficient," an d "Transfer loss and deviation 
angle reference tables per loss and deviation angle op- 
tions of program MAIN (continued). 


Program segments "Compute blade row inlet conditions " 
Save blade row initial head loss," "Interpolate profile 
maximum thickness and incidence angle correction factor 
compute radial equilibrium and continuity solution and 
determine head loss" of program MAIN (continued). 
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Flow Chart 5 Program segments "Check head-loss convergence and output 
computed results," "Revise head loss," "Output message 
head losses not converged, and output computed results," 
"Initialize head loss to zero," Reassign head loss and 
repeat iterations to loss of solution and "Output intermediate 
iteration results prior to loss of solution" of program MAIN 
(concluded) . 


Program MAIN variables: 


FZ fraction of annulus passage JL 

height from hub to initial 
streamline radius JLIM 

I axial station; blade row 
number, determined by inlet K 
station to blade row 

KHLOSS 

ID input card identification 

number 

II card read reference number 

KK 

IL ILIM-1 

KLK 

ILIM maximum value of I, the 

number of blade rows plus 

one KILIM 


10 

IRUN 


printer reference number 

L 

problem run identification 

number LINDEX 


IWARN 


IZ 


fitting extrapolation 
warning indicator (- 1, no 
extrapolation; = 2, 
extrapolation of reference 
data table) 

index 


LL 

LOK 

L0K1 


J streamline number (= 1 at hub) 

JBASE base streamline number from LOKLIM 
which radial equilibrium 
calculations proceed outward 
to casing, or inward to hub 


JLIM-1 

number of streamlines, casing 
streamline 

index 

loss of radial equilibrium 
solution indicator (= 0, 
solution not lost; = 1, 
solution lost) 

index delimiter 

head loss iteration loop 
index 

number of elements in ar- 
ray XI 

index 

head loss calculation option 
indicator (IEXL0S 4* 5) 

index delimiter 

KLK 

L0K-3, or L0K-1, with loss 
of radial equilibrium solu- 
tion occurring on head loss 
iteration number LOK 

LOK-1, with loss of radial 
equilibrium solution oc- 
curring on head loss itera- 
tion number LOK 
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PHIB 


average flow coefficient at XJOE 
inlet station 


damping factor in reas- 
signment of head loss 


PHI RUN 

QRUN 

THL 


flow rate calculation identi- 
fication number 

computed flow rate 

tolerance value for conver- 
gence of head loss iteration 


XR 

Z 

ZL 


I RUN 
J 

JL 


Program MAIN arrays: 


ALFl leading edge blade-element FIDIFB reference table of blade- 

camberline tangent angle element incidence angle minus 

reference incidence angle 

ALPHZ diagnostic alphameric word (FIDIF) 

ANGSTB reference table of blade FIlOGB reference table of blade-ele- 

setting angle (YANGS) ment zero-camber incidence angle 

(FI010G), function of YANGS B , 

AREA axial calculation station SGMGBB 

annulus area 

FNC1 blade-element incidence angle 

ARFAC axial station effective 

flow area/ annulus area H blade-element total head 

BTAPl blade-element relative HB total head at inlet station, 

entering fluid flow angle function of Xl 


product of blade -element Hi blade-element total head 

wheel speed and fluid whirl at inlet station 

velocity 


DEL2B reference table of deviation 

angle (DEL2) , function of 
PHIBB , XPB 

DEQBB reference table of blade - 

element equivalent diffusion 
factor (DEQ) 

EMB reference table of deviation 

angle rule slope factor (EM), 
function of YANGS B 

EXPBB reference table of camber ex- 

ponent (EXPB) in deviation 
angle rule, function of 
FIDIFB, PPHB 


HLOB computed blade -element head 

loss 

HLOSS computed blade -element head 

loss in preceding head loss 
iteration 

HL0SS1 initial value of blade- 
element head loss 

IEXDEV option designation for 

deviation angle calculation 

IEXLOS option designation for head 
loss calculation 
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KLZ 

K2LM 

LLZ 

L2LM 

OMEGBB 

PHIBB 

PHIEFC 

PPFT1 

PPHB 

QB 

R 

RN 

RPBB 

RPBBl 


number of elements in RPBB 2 

reference table PHIBB, XDBB, 
or DEQBB 

number of elements in 

reference table PHIBB SGMGBB 

number of elements in 

reference table XPB or RPBB SLPlGB 

number of elements in 
reference table XPB 

SLP2GB 

reference table of head loss 
coefficient (OMEGB) , function 
of PHIBB, XPB 

reference table of PHIEFC 

blade row inlet average 
flow coefficient 

streamline location at inlet 
to blade row as percent of 
passage height from outer 
casing 

reference table of percent 
passage height from outer 
casing at blade row exit (PPFT2) TMAXC 

blade -element quadrature 

value of flow rate (from hub) USTAR 


THACBB 


THCBBl 


THCBB2 


streamline radius 

blade row rotational speed 


Ul 


reference table of percent 
passage height from outer 
casing at blade row exit 
(PPFT2) 

reference table of blade 
element solidity (SGMA) 

reference table of linear 
camber coefficient (SLOPlG) , 
function of YANGSB and SGMGBB 

reference table of quadratic 
camber coefficient (SL0P2G), 
function of YANGSB and SGMGBB 

reference table of wake momen 
turn thickness /chord (THAC) , 
function of DBB or DEQBB, and 
RPBB 

reference table of wake momen 
turn thickness /chord (THAC), 
function of YXDBB and RPBBl 

reference table of wake momen 
turn thickness/chord (THAC) , 
function of YDEQBB and RPBB2 

blade -element maximum profile 
thickness /chord 

blade tip speed or reference 
speed 

blade-element velocity at in- 
let to a blade row 


reference table of percent vub 

passage height from outer 
casing at blade row exit 
(PPFT2) VUl 

reference table of percent 
passage height from outer VZ 

casing at blade row exit 
(PPFT2) 


reference table of VUl, 
function of Xl 

blade -element fluid whirl 
velocity at inlet station 

blade-element fluid axial 
velocity 
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VZB 

reference table of VZ1, 
function of Xl 

YDEQBB 

reference table of blade- 
element equivalent diffuser 

VZ1 

blade-element fluid axial 


factor (DEQ) 


velocity at inlet station 

YFKIB 

reference table of blade- 

X 

reference table of R at 
inlet to blade row 


element incidence angle 
connection factor (FKI) , 
function of YTMACB 

XDBB 

reference table of blade- 
element diffusion factor 

YOMGBB 

OMEGBB 


(XD) 

YPHIBB 

PHIBB 

XP 

reference table of R at 

YRPB 

RPBB 

XPB 

outlet of blade row 

YTHACB 

THACBB 

reference table of R at 



outlet of blade row 

YTMACB 

reference table of blade - 

XI 

YANGSB 

reference table of R at 
inlet station 

YTMAXC 

element maximum thickness/ 
chord (TMAXC) 

TMAXC 

reference table of blade- 
element stagger angle 
(ANGST) 

YXDB 


XDBB 


YDEL2B 

reference table of DEL2B 

YXDBB 

reference table of blade- 
element diffusion factor 

YDEQB 

DEQBB 


(XD) 



YXPB 

XPB 
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Flow Chart 2* 
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Subroutine DEV- ~ The purpose of DEV is to compute blade-element 
flow deviation angles according to the given option value 1EXDEV per 
axial calculation station. In these options, deviation angle is 
computed based on an inputed correlation of deviation angle, flow 
coefficient, and radius, or on Carter's deviation angle rule, or on 
the camber exponent deviation angle rule, using blade -element reference 
incidence angle and percent passage height location. Details of these 
methods have been given in the section BLADE-ELEMENT LOSS AND DEVIATION 
ANGLE PREDICTION. 


DEV 

variables : 



10 

printer reference number 

j 

streamline number (= 1 at hub) 

IWARN 

fitting extrapolation warning 
indicator 

JLIM 

number of streamlines, casing 
streamline 

DEV 

arrays : 



ALFl 

leading edge blade-element 
camberline tangent angle 

FNCl 

blade-element incidence 
angle 

ALF2 

trailing edge blade-element 
camberline tangent angle 

IEXDEV 

option designation for devia- 
tion angle calculation 

ALPHZ 
DEL 2 

diagnostic alphameric word 

blade-element flow deviation 
angle 

PPHT2 

streamline location at outlet 
of a blade row as percent of 
passage height from outer 
casing 

EM 

blade-element deviation 
angle rule slope factor 

R 

SGMA 

streamline radius 
blade- element solidity 

EXPB 

blade-element camber expo- 
nent in deviation angle 
rule 

STARI 

blade-element reference 
incidence angle 

FIDIF 

FNC1 - START 

THTA 

blade-element camber angle 
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Subroutine FITlD . — Interpolations for Y(X) are made based on 
3-point Lagrange polynomials. Reference data tables are YB, XB, where 
elements of XB are in monotone nondecreasing order, and KP is the 
number of point pairs (XB, YB) . A total of JP interpolations Y(X) 
is made. The interpolate X is bracketed (if possible) in each interpola 
tion by three neighboring elements of XB. I WARN = 2 indicates extrapola 
tion of XB array. 

FITlD variables: 

I index 

IWARN extrapolation indicator 

j index 

JP number of fittings made 

K index 

KP number of point pairs (XB, YB) 

L M 

M index 

XO XB value bracketing X 

XI XB value bracketing X 

X2 XB value bracketing X 

FITlD arrays: 

X interpolate 

XB reference table of independent variable 

Y interpolated value 

YB reference table of dependent variable 
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Subroutine FIT 2D . - Interpolations for Y(X, Z) are made based on 
tnree-point Lagrange polynomials. Reference data tables are XB, YB, 

ZB, where elements of XB, ZB are in monotone nondecreasing order. 

IP is the number of elements in XB, JP the number in ZB. A total of 
JL interpolations Y(X, Z) is made. The interpolates X, Z are bracketed 
(if possible! in each interpolation by three neighboring elements of 
XB and ZB, respectively. IWARN = 2 indicates extrapolation of XB or 
ZB arrays. 

FIT2D variables: 


I 

M 

XO 

XB or ZB value bracketing 
X or Z 

IQ 

dimension size of YB 

XI 

XB or ZB value bracketing 

IWARN 

fitting extrapolation warn- 
ing indicator 


X or Z 


X2 

XB or ZB value bracketing 

J 

M 


X or Z 

JQ 

dimension size of YB 

YO 

YB element at bracket 
point (XB, ZB) 

K 

index 

Yl 

YB element at bracket 

L 

I + K 


point (XB, ZB) 

M 

index 

Y2 

YB element at bracket 
point (XB, ZB) 

N 

index 




FIT2D arrays: 



X 

interpolate 

YST 

intermediate interpolated 
Y value 

XB 

reference table independent 
variable 

Z 

interpolated value 

Y 

interpolated value 

ZB 

reference table of indepe 
dent 

YB 

reference table of depen- 
dent variable 
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Subroutine INPUT . - In this subroutine, the input data to the 
program for the particular problem are printed out for reference. 
Problem run number is identified, followed by output of reference 
incidence angle tables supplied by the BLOCK DATA program (see descrip- 
tion of program MAIN). On a blade row by blade row basis, rotational 
speed and reference geometry tables, and reference deviation angle and 
loss tables (per designated options) are printed out. 

Program parts of INOUT in the accompanying Flow Charts 9 and 10 
are identified as follows: 


Flow Chart 9 Program segments "Output reference incidence angle tables," 
"Output blade row RPM, reference radius and loss and 
deviation angle options," "Output reference blade row 
geometry tables," "Output reference deviation angle tables" 
of subroutine INOUT. 

Flow Chart 10 Program segment "Output reference blade wake momentum 

thickness /chord or loss coefficient tables of subroutine 
INOUT (concluded) . 

INOUT variables: 


I 


IL 

ILIM 

I OUT 
I RUN 


axial station; blade row 

K 

index 

number, determined by inlet 
station to blade row 

KK 

index delimiter 

ILIM-1 

KLIM 

number of elements in blade 

maximum value of I , the num- 


row geometry reference 
tables 

ber of blade rows plus one 

Kl 

index initial value 

printer reference number 

L 

index 

problem run identification 
number 

LINDEX 

IEXLOS + 5 


J 

JBASE 

JLIM 


streamline number (= 1 at 
hub) 

base streamline number 

number of streamlines, 
casing streamlines 


LL 

LLl 

Ll 


index delimiter 
index delimiter 
index 
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INOUT arrays: 


ALFB 

ALFPB 

reference table of leading 
edge blade -element camber- 
line tangent angle (ALFl) , 
function of X 

reference table of trailing 

FI2DB 

reference table of blade - 
element reference incidence 
minus cascade rule inci- 
dence angle (FIS2D) , func- 
tion of XP 


edge blade-element camber- 
line tangent angle (ALF2) , 
function of XP 

FKSHAB 

reference table of shape 
correction factor (FKSHA) , 
function of XP 

DEL2B 

reference table of blade- 
element flow deviation 
angle (DEL2) , function of 

IEXDEV 

option designation for devia- 
tion angle calculation 

DEQB 

PHIBB, XPB 

reference table of blade- 

IEXL0S 

option designation for head 
loss calculation 


element equivalent diffu- 
sion factor (DEQ) 

K2LM 

number of elements in reference 
table PHIBB 

DEQBB 

reference table of blade- 
element equivalent diffu- 
sion factor (DEQ) 

KLZ 

number of elements in reference 
table XDBB, YXDBB , DEQBB, 
YDEQBB, or PHIBB 

EMB 

reference table of devia- 
tion angle rule slope fac- 
tor (EM), function of YANGSB 

LLZ 

OMEGBB 

number of elements in reference 
table RPBB or XPB 

reference table of head loss 

EXPBB 

reference table of camber 
exponent (EXPB) in devia- 
tion angle rule, function 


coefficient (OMEGB) , func- 
tion of PHIBB, XPB 

FHB 

of FIDIFB, PPHB 

PHIBB 

reference table of blade 
row inlet average flow coef- 

reference table of blade- 
element wake form factor 


ficient (PHIEFC) 

FIDIFB 

(FH2) , function of XP 

PPHB 

reference table of percent 
passage height from outer 

reference table of blade- 
element incidence angle 
minus reference incidence 


casing at blade row exit 
(PPFT2) 


angle (FIDIF) 

RN 

blade row rotational speed 

FI 10GB 

reference table of blade- 
element zero-camber inci- 
dence angle (FI010G) , func- 
tion of YANGSB, SGMGBB 

RPBB 

reference table of percent 
passage height from outer 
casing at blade row exit 
(PPFT2) 
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RSTAR blade row reference radius 

SGMAB reference table of blade - 

element solidity (SGMA) , 
function of XP 

SGMGBB reference table of blade- 
element solidity (SGMA) 

SLPlGB reference table of linear 

camber coefficient (SL0P1G) 
function of YANGSB, SGMGBB 

SLP2GB reference table of quadratic 
camber coefficient (SL0P2G) , 
function of YANGSB, SGMGBB 

THACB reference table of blade- 

element wake momentum thick- 
ness/chord (THAC) , function 
of DEQB 

THACBB reference table of blade - 

element wake momentum thick- 
ness/chord (THAC), function 
of RPBB , and DEQBB or XDBB 

TMXCB reference table of blade - 

element maximum profile 
thickness /chord (TMAXC) , 
function of XP 


X reference table of stream- 

line radius (R) at inlet to 
blade row 

XDBB reference table of diffusion 

factor (XD) 

XP reference table of stream- 

line radius (R) at outlet 
of blade row 

XPB reference table of stream- 

line radius (R) at outlet 
of blade row 

YANGSB reference table of blade- 

element stagger angle (ANGST) 

YFKIB reference table of incidence 

angle correction factor (FKI) , 
function of YTMACB 

YTMACB reference table of blade - 
element maximum thickness/ 
chord (TMAXC) 
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Sg br °u tlne INPUT . Input data are read in on a blade row by blade 
r°wbas s from cards, or are transferred as necessary from arrays ini- 
Latized in the BLOCK DATA subprogram. input data comprise limit 
tables M T computing run identification, loss and deviation reference 
C b 'j I.? 1 de r °“ 8eometry reference tables and balde row rotational 
speed (flow rate, Inlet conditions, and area blockage factors are read 
in by main per flow rate calculation). Multiple roLtionarLed 
calculations are handled by ENTRY INPUT1, in which only rotational 
speeds (per blade row) are read in. Also, reference bLde speeSs are 
computed m INPUT, based on blade row rotational speed and reference 

Ll^ed rota^pLT" “ “ 1Ud “ ^ for ZT h 

are iSSSLT^fSlST ““ “‘“"S Charts 11 and 12 


Flow Chart 11 


Flow Chart 12 


Mnn « .,T InpUt limit values and run identifica- 

ion. Input loss and deviation option values," "Input 

reference loss and deviation tables" of subroutine INPUT. 

ScB a B/^r S .;" PUt reference wake momentum/chord 
(THACBB) tables, input reference blade row geometry 

speed 8 " "Output RPM 1 * nd COmpute reference blade 

(concluded^ P roblem data load" of subroutine INPUT 


INPUT variables: 


I 

axial station; blade row 
number, determined by inlet 

j 

I, K, L 



station to blade row 

JBASE 

base streamline number 

from 

ID 

input card identification 
number 


which radial equilibrium 
calculations proceed outward 




to casing, or inward to hub 

I IN 

card reader reference number 

JL 

JLIM-1 


IL 

ILIM-1 

JLIM 

number of streamlines. 

casing 

ILIM 

maximum value of I, the 


streamline 


number of blade rows plus 
one 

K 

index 


I OUT 

printer reference number 

KK 

index delimiter 


I RUN 

problem run identification 
number 

KLIM 

index delimiter, number 
elements in input blade 

of 



element geometry arrays 


IZ 

index 

K2LIM 

KLZ 
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L 


index 


RRN 


RN 


LINDEX head loss calculations option 
indicator (IEXLOS + 5) 

LL index delimiter 

L2LIM LLZ 

INPUT arrays: 

ALFB reference table of leading 

edge blade-element camberline 
tangent angle (ALFl), func- 
tion of X 

ALFPB reference table of trailing 

edge blade -^element camberline 
tangent angle (ALF2) , func- 
tion of XP 

ALFPZ diagnostic alphameric word 

DEL2B reference table or blade- 

element flow deviation angle 
(DEL2) , function of PHIBB, 

XPB 

DEQBB reference table of blade- 

element equivalent diffusion 
factor (DEQ) 

FHB reference table of blade- 

element wake form factor 
(FH2) , function of XP 

FI2DB reference table of blade- 

element reference incidence 
minus cascade rule incidence 
angle (FIS2D) , function of XP 

FKSHAB reference table of shape 

correction factor (FKSHA) , 
function of XP 

IEXDEV option designation for devia- 
tion angle calculation 


THL tolerance value for conver- 

gence of head loss itera- 
tion 


IEXLOS option designation for head 
loss calculation 

KLZ number of elements in 

reference table XDBB, DEQBB, 
or PHIBB 

K2LM KLZ 

LLZ number of elements in 

reference table RPBB or XPB 

L2LM LLZ 

OMEGBB reference table of head loss 

coefficient (GMEGB) , function 
of PHIBB, XPB 

PHIBB reference table of blade 

row inlet average flow 

coefficient (PHIEFC) 

RN blade row rotational speed 

RPBB reference table of percent 

passage height from outer 
casing at blade row exit 
(PPFT2) 

RPBBl reference table of percent 

passage height from outer 
casing (PPFT2) 

RPBB2 reference table of percent 

passage height from outer 
casing (PPFT2) 

RSTAR blade row reference radius 
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SGMAB 

reference table of blade- 
element solidity (SGMA) , 
function of XP 

USTAR 

X 

blade tip speed or reference 
speed 

reference table of streamline 

THACBB 

reference table of blade- 
element wake momentum 
thickness/chord (THAC) , func- 


radius (R) at inlet to blade 
row 


tion of RPBB, and DEQBB or 
XDBB 

XDBB 

reference table of diffusion 
factor (XD) 

THCBBl 

reference table of wake 
momentum thickness/chord 
(THAC), function of YXDBB 
and RPBBl 

XP 

XPB 

reference table of streamline 
radius (R) at outlet of blade 
row 

reference table of streamline 

THCBB2 

reference table of wake 
momentum thickness /chord 
(THAC) , function of YDEQBB 


radius (R) at outlet of blade 
row 


and RPBB 2 

YDEQBB 

reference table of blade - 
element equivalent diffusion 

TMXCB 

reference table of blade - 
element maximum profile 


factor (DEQ) 


thickness/chord (TMAXC) , 
function of XP 

YXDBB 

reference table of blade- 
element diffusion factor (XD) 
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Subroutine IREF. - Blade -element reference incidence angles are 
computed from camber angle, stagger angle, maximum thickness/chord, 
solidity, and thickness distribution correction factor. Interpolations 
for factors FI010G, SLOPlG and SL0P2G from reference tables as functions 
of YANGS and SGMA are required. Extrapolations of the data for relative 
inlet angle (BTPl) above 75° are noted by the subroutine. 


IREF variables: 


BTPl 

blade -element relative 

J 

streamline number (= 1 at 

entering fluid flow angle 


hub) 

IZ 

index 

JLIM 

number of streamlines, casing 
streamline 

10 

printer reference number 



IREF arrays: 



ALFl 

leading edge blade-element 

FKSHA 

blade-element shape correc- 

camber line tangent angle 


tion factor 

ALPHZ 

diagnostic alphameric word 

SLOPlG 

linear camber coefficient 

ANGST 

blade-element stagger angle 

SL0P2G 

quadratic camber coefficient 

FI010G 

blade-element zero-camber 

STARI 

blade-element reference 

incidence angle 


incidence angle 

FKI 

blade-element incidence 

THTA 

blade-element camber angle 

angle correction factor for 
maximum thickness /chord and 

YANGS 

ANGST 



thickness distribution 

YANGS 1 

YANGS 
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Flow Chart 13. 
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Subroutine LOSS. - Blade-element head losses are computed for all 
streamlines, hub to casing, in rotors or stationary blade rows. Head 
losses are computed from reference tables according to specified loss 
calculation option. These tables consist of (1) blade -element wake 
momentum thickness /chord and correlated diffusion factor (or both dif- 
fusion factor and blade-element radial position), or (2) loss coefficient 
and correlated effective flow coefficient and radial position. 

LOSS variables: 


C0117 

coefficient in equivalent 
diffusion factor calcula- 
tion 

Cl 

ratio of blade-element 
entering and leaving stream- 
line radii 

C2 

reciprocal of blade-element 
relative entering fluid 
velocity 

C3 

parameter in blade-element 
head loss calculation 

C4 

parameter in blade -element 
head loss calculation 

C61 

coefficient in blade-ele- 
ment equivalent diffusion 
factor calculation, rotor 
or stationary blade row 

FIIPS 

absolute value of difference 
between blade -element inci- 
dence angle and reference 
incidence angle 

LOSS arrays: 

ALPHZ 

diagnostic alphameric word 

BTAPl 

blade-element relative enter 
ing bluid flow angle 

BTAP2 

blade-element relative 
leaving fluid flow angle 

DEQ 

blade-element equivalent 
diffusion factor 
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I axial station; blade row 



number, determined by inlet 
station to blade row 

10 

printer reference number 

IWARN 

fitting extrapolation warning 
indicator 

IZ 

index 

J 

streamline number (= 1 at 
hub) 

JLIM 

number of streamlines, casing 
streamline 

KK 

KLZ 

KSI 

coefficient in blade-ele- 
ment diffusion factor cal- 
culation, rotor or stationary 
blade row 

LL 

LLZ 

LINDEX 

IEXLOS + 5 

DEQB 

reference table of DEQ 

DEQDD 

DEQB 

FH2 

blade -element wake form 
factor 

FNCl 

blade -element incidence angle 



HLOB 

computed blade-element head 

STARI 

blade-element reference 


loss 


incidence angle 

IEXLOS 

option designation for head 

THAC 

blade -element wake momentum 


loss calculation 


thickness /chord 

KLZ 

number of elements in 

THACB 

reference table of THAC, 


reference table of blade ele- 
ment diffusion factor (YXDB 


function of DEQB 


or YDEQB) , or blade row inlet 

THACDD 

THACB 


flow coefficient (YPHIBB) 

U1 

blade^element velocity at 

LLZ 

number of elements in 


inlet to blade row 


reference table of percent 
passage height from outer 

VU 

blade-element exit fluid 


casing at blade row exit 


whirl velocity 


(YRPB) , or streamline radius 
at outlet of blade row (YXPB) 

VZ 

blade-element fluid axial 
velocity 

OMEGB 

blade-element head loss 
coefficient 

XD 

b lade— element di f f us ion 
factor 

PPFT2 

percent passage height from 
outer casing at blade row exit 

XDD 

DEQ 

R 

streamline radius 

XVPl 

blade -element relative 
entering fluid velocity 

RN 

blade row rotational speed 

XVP2 

blade-element relative 

SGMA 

blade -element solidity 


leaving fluid velocity 
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Flow Chart 14 
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Subroutine MAVE . — Mass-averaged performance results are computed and 
outputed for a rotating blade row, or for a stage consisting of a rotating 
and a stationary blade row. Mass-averaged results are based on quadratures 
of blade-element inlet conditions and determined radial equilibrium out- 
let conditions. 


MAVE variables: 


AFLCO 

average flow coefficient at 
blade row inlet 

RHRCO 

rotor total head rise 
coefficient 

AFLCOl 

average flow coefficient at 
blade row exit 

RHRI 

rotor total head rise 
quadrature function 

DENOM 

quadrature function of R 
times VZ across annulus 

RMAE 

rotor mass-averaged 
hydraulic efficiency 

I 

axial station; blade row 
number, determined by inlet 
station to blade row 

RMAHR 

rotor mass-averaged total 
head rise 

IL 

maximum value of I (ILIM) 
minus one 

SEFFI 

stage hydraulic efficiency 
quadrature function 

10 

printer reference number 

SHRCO 

stage total head rise 
coefficient 

J 

JL 

streamline number (= 1 at hub) 
JLIM-1 

SHRI 

stage total head rise 
quadrature function 

JLIM 

number of streamlines, casing 
streamline 

SMAE 

stage mass-averaged hydraulic 
efficiency 

QRUN 

computed flow rate 

SMA.HR 

stage mass-averaged total 
head rise 

REFFI 

rotor hydraulic efficiency 
quadrature function 



MAVE arrays: 



DELH 

blade-element total head 
rise 

REFFP 

rotor blade-element 
hydraulic efficiency product 

DELHI 

blade-element ideal total 
head rise 

RHRP 

rotor blade-element total 
head rise product 

H 

blade-element total head 

RN 

blade row rotational speed # 

R 

streamline radius 
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RVEL product of blade-element 

leaving radius and axial 
velocity 

SDELH stage total head rise along 

a streamline 

SEFFP stage hydraulic efficiency 

for a streamline 

SHRP stage total head rise 

product for a streamline 


TISPD 

rotor inlet blade tip 
velocity 

Ul 

blade-element velocity at 
inlet to a blade row 

U2 

blade-element velocity at 
blade row exit 

VZ 

blade-element fluid axial 
velocity 

W 

DELHI 
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Flow Chart 15 











Subroutine OUTPUT . — Additional blade-element results are computed 
and outputed, based on the blade row entering flow conditions and deter- 
mined radial equilibrium leaving conditions. Dimensional unit conver- 
sions are made for several blade-element results prior to outputing. 
Subroutine MAVE is called to compute and output mass-averaged blade row 
results . 

Program parts of OUTPUT in the accompanying Flow Charts 16, 17 and 
18 are identified as follows: 

Flow Chart 16 Program segment "Compute equivalent D-factor and head 
loss difference" of subroutine OUTPUT. 

Flow Chart 17 Program segment "Prepare blade-element results for output" 
of subroutine OUTPUT (continued). 

Flow Chart 18 Program segments "Output blade-element results," and 
"Output mass-averaged results" of subroutine OUTPUT 
(concluded) . 

OUTPUT variables: 


Cl 

ratio of blade -element 
entering and leaving stream- 

IL 

ILIM-1 


line radii 

ILIM 

maximum value of I, the 
number of blade rows plus 

C2 

reciprocal of blade-element 
relative entering fluid 


one 


velocity 

10 

printer reference number 

C61 

coefficient in blade-ele- 
ment equivalent diffusion 
factor calculation, rotor 

J 

streamline number (= 1 at 
hub) 

FIIPS 

or stationary blade row 
absolute value of differ- 

JLIM 

number of streamlines, cas 
ing streamline 


ence between blade-element 
incidence angle and refer- 

K 

I + 1 


ence incidence angle 

KJ 

index, streamline number 

I 

axial station; blade row 
number, determined by 
inlet station to blade row 

QRUN 

computed flow rate 


OUTPUT arrays: 

ANGST blade -element stagger BTAPl blade -element relative 

an gl e entering fluid flow angle 
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BTAP2 

blade-element relative 
leaving fluid flow angle 

STAR I 

blade-element reference 
incidence angle 

DELH 

DELHI 

blade-element total head rise THAC 
blade-element ideal total 

blade-element wake momentum 
thickness /chord 


head rise 

THTA 

blade-element camber angle 

DEL2 

blade-element flow deviation 
angle 

TMAXC 

blade-element maximum profile 
thickness/chord 

DEQ 

blade-element equivalent 
diffusion factor 

U1 

blade~element velocity at 
inlet to a blade row 

FNCl 

blade-element incidence 
angle 

U2 

blade-element velocity at 
blade row exit 

H 

HLDP 

blade-element total head 
relative difference in 

VU 

blade-element fluid whirl 
velocity 


computed and estimated blade- 
element head loss 

• VZ 

blade-element fluid axial 
velocity 

HLOB 

computed blade-element head 
loss 

XBETA 

blade-element entering fluid 
flow angle 

PPFTl 

PPFT2 

percent passage height from 
outer casing at blade row 
inlet 

percent passage height from 

XBETA2 

XBTAPl 

blade-element leaving fluid 
flow angle 

BTAP1, deg. 

HLOSS 

outer casing at blade row 
exit 

computed blade -element 

XBTAP2 

XD 

BTAP2, deg. 

blade-element diffusion factor 

R 

head loss in preceding head 
loss iteration 

XDEL2 

XEFF 

DEL2, deg. 

blade -element hydraulic 

streamline radius 


efficiency 

RN 

blade row rotational speed 

XFNCl 

FNCl, deg. 

RRT 

streamline radius ratio at 
inlet to blade element 

XHSTTl 

blade-element static head 
entering blade row 

RRT2 

streamline radius ratio at 
blade -element exit 

XHSTT2 

blade-element static head 
leaving blade row 

SGMA 

blade -element solidity 

XOMEG 

blade-element total head 
loss coefficient 
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XPFTl 

PPFTl, percent 

XVI 

blade-element fluid flow 
velocity at blade row 

XPFT2 

PPFT2, percent 


inlet 

XPHIl 

XPHI2 

blade-element flow coefficient 
at blade row inlet 

blade-element flow coefficient 

XV2 

blade— element fluid flow 
velocity at blade row 
exit 


at blade row exit 

XVPl 

blade-element relative fluid 
flow velocity at blade row 

XPSI 

blade-element head rise 
coefficient 

XVP2 

inlet 

blade-element relative fluid 

XPSII 

XTHTA 

blade-element ideal head 
rise coefficient 

THTA, deg. 


flow velocity at blade row 
exit 
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Flow Chart 16. 


0117= .OC 


C61 = - .61 


C61 = .61 


DO J = 1 ,JLIM 


Cl = R(I,J)/R(K,J) 

C2 = cos[BTAPl(J)]/VZ(l,J) 

C3 = 4/t3 x FH2(J) - 1] 

FIIPS = 57.296 x |FNC1(J) - STARIU)/57.296| 

DEQ(J) = 1.12 + COH7XFIIPS 1 - 43 
DEQ(J) - ({C61 xC2 xcos[BTAPl(J)]/SGMA(J)} 

x (Cl x[VU(l,J) - U1(J)] + U1(J)/C1 - VU(K,J)} 
+ DEQ(J)) xcos[BTAP2{J)yrC2 x VZ(K,J)] 


JHLOSS(l,J 


O J = 1 ,JLIM I | HLDP(J > = tHLOBCl) - HLOSS(l,J)] 
1 1 /HLOSS(IJ) 


to: "Prepare blade-element 










Flow Chart 17 


from: "Compute equivalent ..." 



to: "Output b I ode-e lament ... " 
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from: "Prepare blade-element .. . 


Flow Chart 18 
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Subroutine RADEQC. — Blade -element radial equilibrium and continuity 
flow solutions are determined for the flow leaving a given blade row. 
Iterative adjustment of streamline radii based on radial equilibrium solu- 
tion and flow continuity requirements are made. Maximum number of adjust- 
ments is 10, and a convergence tolerance of + 1.0% change in streamline 
radius is used. Maximum number of radial equilibrium and continuity solu- 
tions and base streamline axial velocity adjustments is 20, with convergence 
tolerance set at + 0.5% of the assigned flow rate. 

Abnormal return to the calling program (MAIN) is executed in case 
of failure of the radial equilibrium solution for leaving axial velocity 
(VZ) at any b lade- element . Also an abnormal return is executed in case 
a leading edge blade-element camberline tangent angle (ALFI) equal to 
zero is encountered. 

Program parts of RADEQC in the accompanying Flow Charts 19, 20, and 
21 are identified as follows: 

Flow Chart 19 Program segment "Determine blade-element geometry para- 
meters, wheel speed and relative leaving flow angles" of 
subroutine RADEQC. 

Flow Chart 20 Program segment "Determine leaving whirl velocity, total 
head and axial velocity satisfying radial equilibrium" 
of subroutine RADEQC (continued). 

Flow Chart 21 Program segments "Compute stream function distribution 
for leaving flow and revise base streamline velocity" 
and "Revise leaving flow streamline radii based on stream 
function distribution of subroutine RADEQC (concluded). 


RADEQC variables: 

A factor in radial equili- 

brium equation 

B factor in radial equili- 

brium equation 

C factor in radial equili- 

brium equation 

D streamline radius factor 

E streamline radius factor 

I axial station; blade row 

number, determined by 
inlet station to blade row 


10 printer reference number 

IWARN fitting extrapolation 

warning indicator (« 1, no 
extrapolation; = 2, extra- 
polation of reference data 
table) 

IZ index 

j streamline number (= 1 at 

hub) 

JBASE base streamline number from 
which radial equilibrium 
calculations proceed outward 
to casing, or inward to hub 
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JL 

JLIM- 1 

KNTT 

radial equilibrium solution 
failure indicator (= 0, no 

JLIM 

K 

number of streamlines, casing 
streamline 

KR 

1+1 

RAD 

failure; = 1, failure) 
index 

factor in radial equili- 

KJ 

J + 1, or J - 1 


brium equation 

KKK 

KNT 

index 

integration direction indi- 
cator from JBASE streamline 
(= 1, outward; 4 1 inward) 

RADEQC arrays: 

s 

streamline radius factor 

ALFl 

leading edge blade -element 
camberline tangent angle 

PHIEFC 

blade row inlet average 
flow coefficient 

AFL2 

trailing edge blade -element 
camberline tangent angle 

Q 

blade -element quadrature 
value of flow rate (from 
hub) based on normalized 

ANGST 

blade-element stagger angle 


radial equilibrium solution 

ALPHZ 

diagnostic alphameric word 

QB 

blade -element quadrature 
value of normalized flow 

BTAP2 

blade -element relative 
leaving fluid flow angle 

QR 

rate (from hub) 
conversion factor in normal- 

CS 

DEL 2 

product of blade- element 
wheel speed and fluid whirl 
velocity 

blade-element flow devia- 

R 

ized flow rate (Q) calcula- 
tion 

streamline radius 

FKSHA 

tion angle 

b lade -element shape correc- 

RB2 

interpolated blade-element 
leaving streamline radius 


tion factor 

RN 

blade row rotational speed 

H 

blade -element total head 

SGMA 

blade -element solidity 

HLOSS 

blade-element total head 
loss 

U2 

blade -element velocity at 
blade row exit 

IEXDEV 

option designation for devia- 
tion angle calculation 

VU 

blade-element fluid whirl 
velocity 

IEXLOS 

option designation for 
head loss calculation 

VZ 

blade -element fluid axial 
velocity 
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YANGS | ANGST 
YPHIEF PHIEFC 



Flow Chart 19. 
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Flow Chart 21 


from "Determine leaving ... 
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RESULTS 


The following examples were selected from a large number of cases 
considered to represent typical results and to illustrate the significant 
strengths as well as weaknesses of the proposed pump performance pre- 
diction method. Insofar as the primary results shown are computer 
calculated ones, the calculated mass-averaged flow coefficient w^hout 
blockage, i.e. ^h r0 g> is used throughout the section as the flow level 
parameter. The experimental flow coefficient values used for comparison 
were thus appropriately adjusted to reflect the difference between 
calculated, ^ r0 g> and measured, flow coefficients. 

As mentioned in a previous section, specific correlations of experi- 
mentally determined values of blade-element loss and deviation angle 
were obtained on a three-parameter basis for each rotor geometry and 
were made available for use in the present program as options associated 
with IEXLOS > 0 and IEXDEV > 0. For loss, the three correlating para- 
meters are average blade-element loss coefficient, id, exit flow stream- 
line spanwise location (radius from machine axis), and average inlet 
flow coefficient. For deviation angle the three parameters are devia- 
tion angle, 6, exit flow streamline spanwise location (radius from 
machine axis), and average inlet flow coefficient. These correlations 
were precise enough to yield estimated average blade-element loss coef- 
ficients and deviation angles that are very close to measured values 
thus providing a means for assessing whether or not the present computer 
program would produce meaningful results if losses and deviation angles 
could be estimated accurately. Typical computed results are compared 
with measured results for a particular rotor, configuration 13A (Table I), 
in figures 33 and 34. The close agreement between calculated and mea- 
sured values of mass-averaged hydraulic efficiency, T|, head rise coef- 
ficient, lj), axisymmetric blade-element outlet flow angle, $2> and axda ^ 
velocity, V z 2 > suggests that aside from the procedures used for estimat- 
ing losses and deviation angles, the basic programming and the axisym- 
metric, steady- flow, radial equilibrium flow model are as reliable as 
the available measurements. 


Work on the development of semi-empirical and relatively general 
rotor blade-element loss and deviation estimation procedures based on a 
large collection of NASA isolated pump rotor data was outlined earlier 
in the BLADE -ELEMENT LOSS AND DEVIATION ANGLE PREDICTION section of this 
report . 

The recommended procedures for calculating rotor blade-element 
loss and deviation angles evolving from this work are based on NASA 
axial-flow pump rotor data (rotor configurations 02, 07, 5, 13A, 14A) 
correlations. These involve version A of the wake momentum thickness 
to chord ratio parameter, (9/c)^, modified equivalent diffusion ratio, 
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DEQ, and spanwise location (percent of passage height from the outer 
wall) as loss data correlating parameters (see figure 14) and camber 
exponent, b, incidence angle difference, i - i and spanwise location 

(percent of passage height from the outer wall) as deviation angle data 
correlating parameters (see figure 28). These recommended loss and 
deviation angle estimation procedures are available as the options asso- 
ciated with IEXLOS = - 1 and IEXDEV = - 1 and were used in computing 
the performance of a NASA axial-flow pump rotor, configuration 15, for 
which measured data are available but were not used in the above- 
mentioned correlations. Since the major objective of the blade-element 
loss and deviation angle estimating procedures development was to 
realize ^ significant improvement over two-dimensional flow methods 
(Carter s rule and two-dimensional cascade loss correlation), results 
obtained using the recommended procedures as well as the two-dimensional 
flow methods were compared with measured data. Overall-performance 
results are indicated in figure 35 while blade-element comparisons are 
shown in figure 36. In general, the overall as well as blade element 
results related to the recommended procedures for loss and deviation 
angle prediction were significantly better than those obtained using 
the two-dimensional flow methods. Note, however, that when using the 
recommended procedures for calculating blade-element losses and devia- 
tion angles, the radial equilibrium condition could not be satisfied 
for flows corresponding to flow coefficients equal to or less than 0.372. 
When using the two-dimensional procedures for calculating blade-element 
losses and deviation angles, the radial equilibrium condition could be 
satisfied at <t> prog = 0.372 but not at ^ r = 0.338. As demonstrated 
in figures 37 and 38, using the more specific & and 6 vs ^ and radius 
correlations (IEXLOS and IEXDEV > 0) results in the radial equilibrium 
condition being satisfied at even the lowest flow coefficient, 

0.338. These results point out that a failure to satisfy the ’raX°l 8 
equilibrium condition at lower flow rates in the case of configuration 15, 
when using either the recommended or the two-dimensional loss and devia- 
tion angle estimation procedures, should be interpreted mainly as an 
indication of the imprecision of these calculating procedures. The 
more precise loss and deviation estimation procedure did not result in 
radial equilibrium failure at the lower flow rates. Any statement 
relating radial equilibrium failure and a reversed flow condition near 
the hub or tip wall should only be made if the precision of the loss 
and deviation calculating procedures has been ascertained. 

As shown in Appendix F, the radial equilibrium solution loss related 
to loss and deviation angle estimation procedure imprecision is probably 
mainly due to a failure to predict loss gradients accurately. Thus, 
while the (0/c) A , DEQ, passage location loss calculation method led’to 
more realistic magnitudes of losses for rotor configuration 15 than the 
two-dimensional cascade data method did, the predicted gradients were 
too large at lower flow rates, thus leading to premature radial equilib- 
rium failure. It is interesting to note the computer results of itera- 
tions just before a loss of solution occurs. In figure 39, the computed 
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results of each of three iterations before a radial equilibrium solution 
failure occurred are shown for configuration 15 operating at a flow coef- 
ficient, 0 Dro g= 0.338, with the recommended procedures for estimating 
losses and deviation angles. The predicted deviation angle spanwise 
variation remained essentially unchanged during iterations 2, 3 and 4, 
due mainly to the weak dependence between predicted deviation angle and 
the calculated outlet flow field. 

The NASA axial-flow pump experimental research program (see reference 57) in- 
volved only one single-stage configuration (ref. 68 to 70). Although 
measured data from the rotor of this stage were not used in the (0/c) A , 

DEQ and passage location, camber exponent, incidence angle difference 
and passage location correlations, data from a 16-bladed (the stage 
rotor had 19 blades) version of the stage rotor (configuration 02) were 
used. As mentioned previously, no attempt was made to develop an im- 
provement over two-dimensional loss and deviation angle calculation pro- 
cedures for a stator blade row. The computed results associated with 
using the recommended loss and deviation angle estimation procedures 
for the rotor and the two-dimensional procedures for the stator are com- 
pared with measured data in figures 40, 41 and 42. The early failure 
to satisfy the radial equilibrium condition in the stage occurs specifi- 
cally in the stator row and it most likely is an indication of the inade- 
quacy of the two-dimensional stator loss calculations used. As indicated 
in figures 43 and 44, the radial equilibrium condition could be satisfied 
at all flows in the rotor alone. 
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CONCLUDING REMARKS 


The results presented in the current report represent typical 
examples of computation of axial- flow pump configuration performance 
using the program described and given in the text. Numerous prelimi- 
nary versions of the program and its components were modified, combined, 
and discarded in the process of reaching the format now in use. In 
retrospect, it is evident that the development of such a computation 
system is a major undertaking in terms of time and funds that must 
involve continuity of effort. It is also an undertaking that, consid- 
ered in a broad sense, is not likely to be completed in the foreseeable 
future . 

At present, it may be concluded that the program logic and the 
flow model are consistent and adequate in terms of current experimental 
procedures and design requirements. There does not appear to be a 
reasonable way to avoid the requirement for introduction of experimen- 
tal correlations to support the system. This requirement represents a 
limitation that should be considered in the planning and coordination 
of future research on axial-flow pump and compressor components. 
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APPENDIX A 

DERIVATION OF RELATIONSHIPS FOR AXIAL-FLOW PUMP ROTOR 
AND STATOR EQUIVALENT DIFFUSION RATIO 


Rotor 


For a plane cascade blade element, the equivalent dlffu.ionratie 
is an expression l-tended^to serv^ ^ ^ a8sume d that the appropriate 
equivalent^dif fusion* ratio to use is one that approximates the velocity 
ratio, Viax 3^2. » hlch can be expre88ed aS f<>1 


V' 


max, s 


V' 


V 2 


y ^ 


max, s 



V' 

max, s 



cos @2 
cos * 


(A-l) 


a ,-w for a rotor, the velocity ratio, V maXj8 /v 
to that proposed for plane cascade 


/Vi, 


flow by Lieblein (33), namely. 


V 1 

max, s 

v i 


Ci + ^2 ^ 


- tV 3 + c 4 ( c - p i] • 


(A-2) 


p p * deserves further explanation. 
^U^oto/f^! t h ; blade * element circulation referenced 


For axial -flow pump 
to a rotating coordinate system is 


T* = /vMs -[( r i V e,l " r 2 V 0,2 )n 


(A-3) 


With respect to the rotating coordinate system, the circulation para- 
meter, C»P,^-, i® 


C.P. 


r’ cos Bi , - V fl. 2 l coa H 


CV 


, nc V' 

> 1 

2tt r_ 
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(A-4) 


Since 


C.P. 


. , r(v r 2)Vi - v fi.2 i c ° s gj 


°2 V i 


- 1 _ 


l2ii. 

' 1 cos 


then it is true that 


2 Q . 

COS 


* P 'r a 2 V z>1 [( r l /r 2) V 0,l " V 0,2] 


(A-5) 


The velocity ratio, V 1 /Vl, can thus be expressed as 

max , s 4 


V* 
max 


Vl C0S ^2 

2 " V z,2 COS Pi 


c x + c 2 (i 


* C 3 
i ) 


C 4 cos pj 
_ a 2 V z,l 


— V' - V' 
r 2 0,1 9,2 


(A-6) 


Finally, it can be seen that 


DEQ r 


V 




z , 2 


cos 

cos Pj 


/ 


+ 




+ 


COS^ P' 


J 2 v z,l 



(A-7) 


Stator 

For a stator, it is assumed that the appropriate equivalent diffu- 
sion ratio to use is the one that approximates the ratio, V max S /V 2 , 
which can be expressed as follows: * 
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(A-8) 


V V V, V V . COS P, 

V max,s _ max, 8 _1 _ max » 8 _5xl . 


V i V 2 


1 ’ z,2 C ° 8 P 1 


It 

as 


is further assumed that the velocity ratio, V max>8 /Vi, can be 


\ + C 2 <1 - iV 3 + c 4 (c.p. s )J . 


The circulation for a stator row blade element can be expressed 


2tt 


So 


r s '/V s ' ( r 2 V 9,2 ' r l V 9,l) n 

the stator circulation parameter, C.P #s> is 


2 

COS 


C - P *S cu V 


2 z , 1 


,,2 ' \ Vi ] • 


The resulting stator equivalent diffusion ratio is 

V , cos p 0 I C_ 

° EQs = | C 1 + ^ ‘ i ref) 


C 4 cos 
~2 


v -iv 

V 0,2 r 2 V 9,l 


expressed 


(A-9) 

as 

(A-10) 


(A-ll) 


(A-12) 
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APPENDIX B 


DERIVATION OF VERSION B AND C OF THE MOMENTUM 


THICKNESS-TO-CHORD RATIO RELATIONSHIP 


Version B 


For plane cascade flow (32): 


ut) 

iZ cos Pi 


( c °s e 2 

'2 \cos P^ 


cos p. 


(B-l) 


i - m-T. m : 

\c/\cos p 0 / V 


2/ z , 2 


(B-2) 


Combining these relationships and using relative flow angles results 


_ 3 

q «> c °s P' 2 

c 2 a cos^ p. 


r0(V)-&, ■ 


(B-3) 


If it is assumed that 


Version C 


c u cos p. 


3H 2 - 1 
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and 


or 



cos ^2 V 1 

cos 0^ V 2 ’ 


then equation (B-l) becomes 


9 « £_ 

c 2a 


cos 



(B-4) 


With relative velocities and exit flow angle for a rotor blade element, 
the parameter becomes 


e 


c 



cos 



(B-5) 
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APPENDIX C 

DERIVATION OF AXIAL-FLOW PUMP ROTOR AND 
STATOR BLADE ELEMENT DIFFUSION FACTORS 


Rotor 

For a plane cascade blade element, the diffusion factor is expressed 

as 


D = 



(C-l) 


where a is empirically determined to be equal to 2.0. For a rotor blade 
element, an appropriate diffusion factor might be 


V* r’ 

D = 1 - TT7 + — “7 . 

r acV-j^ 


(C-2) 


The relative circulation, could be expressed as 


r' = 4 v'ds = /r.V' , - r_V — 

r y s v 1 9,1 2 9,27 n 


(C-3) 


Thus 


D , x . Ii + (Vki ~ 

r 1 V[ + \ acV{ / Vn 7 


(C-4) 


and 


K - 1 - T7T + 


V' r V' - r V' 

2 . Vfl.l r 2 V 9,2 


V 1 ^Tl + r 2 ) v i 


(C-5) 


if a = 2.0. 
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Stator 


For a stator blade element, 

r „ -/V s - ( r 2 v e,2 ' r iYi) £” • 

Thus, 


D 


if a = 2.0. 




r l + r 2/ V l 


(C-6) 


(C-7) 
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APPENDIX D COMPUTER PROGRAM LISTING 

BLCCK DATA 

COMMCN/BLCCKA/ALFB(5,20) ,BTA2( 20) , B TP IB ( 10 ) , OEQ (2 0 ) , OEQB ( 10 ) , FH B 
115,2 0 ,FF2(20),F IS2D(20 >,FI 10GB ( 8, 9 > , F 1 2CB( 5 , 20 ) , FK I (20),FKSHAB 
2(5,2 0 ,HLCBI 20) , SIP 1GB ( 8 » <3 ) , S LP 2GB ( 8 ,9 ) , THAC ( 20 ) , THAC B( 10) ,X (5,20) 

C0MMCN/ELCCKE/ALF1 (20), AL F2 (20) , ALFPB(5,20) .ANGST ( 5, 20) , ANG STB 
1(5 ,8) ,CS(20) , EM( 20) ,6MB (5 , 8 ) , FKSHA ( 20 ) , PPFT 1 ( 20 ) , PPFT2 ( 20 ) , Q ( 5,20) 
2,QB(5,20) »RB2(20)»RN(5) ,SGMA(20) ,SGMABI5,20) ,SGMGBB<9) ,THTA(20) , 
3TMAXC(20),TMXCE(5,20),XP(5,20)» YANG SB ( 8 ) ,YANGS ( 5, 20) 

CCMNCN/BLCCKI /EXFBB (7 ,7 ) , F I C I FB ( 7 ) , PPHE (7 ) , ST AR I ( 20 ) 

C0MMCN/BLCCKM/KLZ(5) ,LLZ( 5) ,YX0BB(20) ,RPBB1(7) , THC BB 1 (20,7) , 

1RPEE2 (7) ,TFCBB2( 2C,7 ),YCECBB(20 ) 

COMMCN/BLCCKP/YFK IE (5,7 ) ,YTMACB( 5,7) 

DIMENSION FI 101 KAO), FI 1012(32) ,SLP1A( 40) ,SLP 18(32 ) , SLP2 A (40) , 

1 SL P2 B ( 32 ) 

DIMENSICN THC A (40 ,THCE (40 ,THCC (40) , THCD( 20 ) , TFCE ( 40 ) , THCF ( 40) , 
1THCG(40),TFCH(20 > 

ECU VALENCE ( F I 1 CGE ( 1 ) , F 1 10 1 1 ( 1 ) ) , ( F 1 10GB (41 ) , F 110 12 ( 1 ) ),(SLP1GB 
1(1 )»SLP1A( 1) ), ( SIP1GB(41) ,SLP1B( 1) ) , (SLP2GB( 1) , SLP2AI1 ) ) , { SLP2GB 
2(41), SLP2E (1 ) ) 

EGL I VALENCE (THCEBl(l) ,THCA (1) ) , ( THCBB1 (41) ,THC Bl 1 ) ) , (THC9B1 ( 81 ) , 
1THCC ( 1 ) ) , (ThC 981(121), TbCC(l)), ( THCBB2( 1 ) ,THCE ( 1) ) , ( THC BB2 ( 4 1 ) , 

2 THCF (1 ) ) , (THCEE2 (81) , TFCG (1 ) ) , ( THCBB2 ( 12 1 ) , THCH { 1 ) ) 


ELACE-ELEMENT REFERENCE CATATABLES: 


REFERENCE TABLES INCIDENCE ANGLE CORRECTION FACTOR FOR 
MAXIMUM THICKNESS 

DATA YTMACE ( 1, 1) ,YTMACB (1,2 ) , Y T MACS (1,3) ,YTMACB (1,4) , YTMACB (1,5), 
1YTMACBI1, 6), YTMACB(1,7)/C. 0,0. 02, 0.04, 0.06, 0.08, 0.10, 0. 12/ 

DATA YFKIE ( 1,1 ) ,YFKIB(1 ,2 ),YFKIB( 1,3) ,YFKIB( 1,4), YFK IBl 1, 5) ,YFKIB 
1(1,6), YFK IE ( 1,7) /C.0,C. 334,0. 589, 0.772,0. 903,1.0, 1.08/ 


REFERENCE TABLES CONSTANT STAGGER ANGLE ZERO-CAMBER IN- 
CICENCE ANGLE AND CAMBER QUADRATIC COEFFICIENT AS FUNC- 
TICNS CF STAGGER ANGLE AND SGLIOITY 


CATA YANGSE/O.O, 10. ,20. ,30. ,40 . , 50. , 60. . 70. / 


DATA SGMGBB/0.4 , C.6,0.8 ,1 .0 ,1.2 , 1 
CATA F 1 10 1 1/ 


1 

C.042, 

0.413, 

0.738, 

1.043 

2 

C.012, 

C. 554 , 

1.C85, 

1. 571 

3 

C.0C3, 

C.721, 

1.405, 

2. 105 

4 

-.041 , 

0.853 , 

1.735, 

2.636 

5 

-.074, 

1.C72, 

2. 146, 

3.136 

DATA F 1 10 1 2/ 



1 

— . C 57 , 

1.203 ? 

2.476, 

3.751 

2 

-.124, 

1.367, 

2.844, 

4. 346 

3 

-.132, 

1.764, 

3.663, 

5.606 


4, 1.6, 2. 0,2. 6/ 


1.360, 

1.662, 

1.864, 

2.042, 

2.050, 

2.485, 

2.834, 

3.099, 

2.759, 

3.386, 

3.835, 

4.145, 

3.486, 

4.283, 

4.919, 

5. 276, 

4.219, 

5.215, 

5.955, 

6.377/ 

5.029, 

6.214, 

7.016, 

7.390, 

5.827, 

7.255, 

8.100, 

8.517, 

7.591, 

9.398, 

10.200, 

10. 850, 
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* - . 1 E6 » 2.3C3, 4.944, 7.694, 10.460, 12.54C, 13.660, 14.500/ 

CAT/! SLP 1 A / 

1-. C4 2 7 58,- .C3 7 5 34,-. 138C4 3,-. 19090 l , - . 2 50442 , - . 321693,-. 392P7C, 

1- . 484C41, 

2- .C22447.-.C58126,-. 100154,-. 14 8312,-. 206059 ,- . 27288 9 , - . 352 37 8 , 

2- . 4 5 7 6 C 3 , 

3- . CC3620,-.C32CCC, -.067203,-. 113722 ,-. 16666 1 ,-. 23456 3,- . 31 7 7 56, 

3- . 448353, 

40. C 156 55 ,-. CC8 162 , -.03762 8, -.079030,-. 1 30964,-. 200632, -.291 484, 

4- . 433447, 

50. 04 1494,0.019001, -.013239,-. 04 3754, -.096356,-. 17 3708, -.26 7640, 

5- .4C8423/ 

DATA SLP 1 E/ 


10.C559Cl,C.C468e c - ,0. 02 5376,-. CO 9586 ,-. 066273 ,-. 15 02 70 , - . 249 1 2 1 , 

1- . 376220, 

20.C82185,C.C73C9C ,0. 055 27 8 , 0. 0 1 8505 ,-. 040472 ,-. 13 38 57, -.236335, 

2- . 356545, 

30. 116 3 59, 0.123619, 0.113 36 < ,C. 079266,0.00345 7,-. 10 7843,-. 1948 11, 

3- . 296872, 

40. 162877, C. 189407, 0.19342C,C. 147714, 0. 04688 8 ,- . 07 1 540 , -. 156740, 

4- . 24 7 C 6 8 / 

DATA SLP2A/ 

1-.CC1435»-.0C1385,-. 00 1268, -.001161, -.001 01 9, -.00 0744, -.000538, 

1- . CCC113, 

2- . CC1321.-.CC1342,— .001231, -.001289,-. 001 1 78 ,- . CO 1 02 2 ,- .0008 14, 

2- . CCC337 , 

3- . CC1225,-. CO 1325,-. 00 1395,-. 00 1370, -.00134 7, -.00 1256, -.0011 07, 

3- .C0C463, 

4- . CC 1 1 64,-. 00 129 2,-. 001 424.-.0 01497, -.00153 3, -.00 1489, -.00 13 76, 

4- . CCC6C7, 

5— .CC1171,-. 001341, -.001418, -.001653* — .001749,-. CO 1639,- . 001 5 51 , 

5-. CC C 846/ 

DATA SLP2B/ 

1-. CC 1C 5 8,-. CO 13 3 C,-. 00 1604,-. 00 1843 ,-.001940, -.00 1797, -.00 16 17, 

1- .CC1048, 

2- . CC1C45, -.00 1386 ,-.001 744, -.002001, -.0021 20, -.00 1904, -.0016 56, 

2- .CC12CC, 

3— .CCC875, — .C01462,— .CC1567, — .002403, — .C02377,— • C01919, — .001769, 

3- . CC1514, 

4- .CCC71C,— .CC 1564 ,-. CC2 44 5, -. 002851 ,-.00262 3,-. C021 08 ,-. 002036, 

4-. CC2749/ 


REFERENCE TABLES DEVIATION ANGLE RULE CAMBER EXPONENT AS 
FLNCTICN CF INCIDENT ANGLE MINUS REFERENCE INCIDENT 
ANGLE ANC FRACTICN OF PASSAGE HEIGHT FRCM CUTER CASING 
( IEXCEVCO) 

DATA F ICIFB/-12. ,-8. ,-4. ,C. ,4. , 8. ,10. / 

DATA PPHB/O.f .1, .3, .5, .7, .9,1./ 

DATA EXPBB/ 

1 1.17 , 1.13 , 1.1C , 1.14 , 1.2C , 1.28 , 1.32 , 
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9 


2 

3 

4 

5 

6 
7 


1.15 9 
1.11 , 
1 • C 7 f 
1.C7 f 
1.06 , 
1.C4 , 


1.10 9 
1 . C 7 , 
1 .C6 9 
1. C6 , 
1 • C 3 € 9 

1 .Cl 9 


1.00 9 
1.05 , 
1.05 , 
1.C5 9 
1 .0 16 f 
C.<50 , 


1.11 9 

1.07 9 

1*06 t 

1 • 04 , 
0.994, 
0.95 , 


1.17 , 
1. 13 , 
1 . C 8 , 
1.03 , 
0.972, 
0.92 , 


1.26 

1.22 , 

1.11 , 
1.02 , 
0.95 , 
0.90 , 


1.31 , 
1.28 , 
1.13 , 
1.015, 

0. 939, 

0.88 / 


REFERENCE TAELE SLOPE FACTOR CARTER DEVIATION ANGLE 
AS FUNCTICN CF STAGGFR (YANGSG) <IEXDEV=0) 


RULE 


DATA EMB(1,1),EME(1»2)»EME(1, 
1EMB(1,7),EME( 1,8)/. 217, .227,. 


3 ) , EMB1 1,4) ,EMB( 1, 5) ,EMB( 1,6) 

245, .268, .295, .328,. 368 ,.425/ 


9 


REFERENCE TABLES fcAKE MCMENTUM TH ICK NE S S/ CHORD AS 
TICN CF ECUIVALENT C-PACTOR (IEXL0S=0) 


FUNC- 


DA TA 
DATA 


?!!!?£, 5 ' I - t * 1 - 7 »l- 8 »i.9,2.0,2.1,2.2/ 

ThACB/.CC^, .C06, .CC7,.CC8, .0094, .011, .013,. 0153, .019, .02 3/ 


C 

c 

c 

c 

c 


REFERENCE TABLES MKE MCMENTUM TH I CKNES S/ CHORD AS FUNC- 
TION CF C-FACTCR AND FRACTION OF PASSAGE HEIGHT FROM 
CLTER CASING (IEXLCS=-2) 


DATA YXDBB/.05, . 1 , 


1 

»8*.E5».9,.95, 

1. C/ 


DATA RPBB1/.0, 

.10, .3 


CATA THCA/ 


1 

• C 1 fc ,.016 

, . C16 

1 

.037 , . 042 

, . C47 

2 

• C 1 6 , . C 1 6 

, .C16 

2 

.037 , . C42 

, . C 4 7 


CATA TFC P / 


1 

•Cl ,.01 

,. C 1 

1 

.023 , . C32 

, .C41 

2 

. CC 59 , . C06 2 

, .CC65 

2 

.0095, .Cl 

,. C 105 


CATA TFCC / 


, . 2, .25, .3, .35, .4, .45, . 
, . 5C, . 70, . 90,1. 0/ 


016 

,.016 ,.016 

,.017 

052 

, .057 , . C62 

»*G68 

0 16 

,.016 ,.016 

i .017 

052 

,.057 ,.C62 

».068 

01 

,.01 ,.01 

9 .01 

05 

* • C 5 9 ,.068 

9 • C 77 

0 C 6 8 

, .0071, .0074 

9 .0077 

Oil 

, .0115, .012 

9.0125 


,. 55, .6, .65, .7, .75, 


.022 ,.027 ,.032 , 
.073 ,.078 ,.083 , 
•022 ,.027 ,.032 , 
•073 ,.078 ,.083 / 

•01 ,.01 ,.014 , 

.086 ,.095 ,.104 , 
• 0 C 8 ,.0085, .009 , 
.013 ,.0135, .014 / 


1 

*CC6 ,.CC65,.CC7 

,.0077, .0084 

1 

.0126, .0133,. C14 

,.0 147, .0154 

2 

•Cl ,.01 ,.C1 

,.01 ,.01 

2 

• L 2 ,. 022 , . C 24 

t • C 26 ,.028 


CATA TFCC/ 


1 

.01 ,. Cl , . c 1 

t.Ol ,.01 

1 

.02 , .022 , . C24 

» • C <:6 ,.028 


.0091, .0098,. 0105,. 01 12, .0119, 

,.0161, .016 8, .0175,. 0182, .0189, 

.011 ,.012 ,.014 ,.016 ,.018 , 
•03 ,.032 ,.034 ,.036 ,.038 / 

.011 ,.012 ,.014 ,.016 ,.018 , 
.03 ,.C32 ,.034 ,. 036 ,.038 / 


REFERENCE TABLES kAKE MCMENTUM TH I CKNES S/ CHORD AS FUNC- 

u c« frict,on of pass4Gf 


107 


CAT* YCEGPE/1.2,1.3,1.4,1.5,l.6,1.7, 1.8, 1.9, 2. 0,2.1, 2.2»2 
12. 5, 2.6, 2. i, 2.8,2. 9*3. 0,3.4/ 

OAT* RPBE2/.0,.IC,.30,.5C,.7C».9C,1.C0/ 

CAT* THCE / 

1 .CIA ,.014 t • C 16 t . C 1 8 t.022 t.026 t .030 ,.034 ,.038 , 

1 .Q48 , . C53 , . C 58 t.063 ,.068 ,.075 ,.083 ,.093 ,.108 , 

2 .CIA ».C1A ,.C16 ,.C18 ,.022 ,.026 ,.030 ».Q3A ,.038 , 

2 .CA8 ,.C53 ,.C58 ,.C63 ,.068 ,.075 ,.083 ,.053 ,.103 , 

OAT* ThCF / 

1 .01 ,.C1 ,.C1 ,.0105,. 0145, .0195, .024 ,.0285, .033 , 

1 .042 , . 046 5 , . C 5 1 ,.0555, .06 ,.0645, .069 ,.C735,. 078 , 

2 .CCfc , . CC6 ,.CC6 ,.0C6 , .006 1 , .006 1 , .006 1 , .0 C62 ,. 0066 , 

2 .0074, .C078,.CC82,.CCP6,.C09C,.0C5A,.CC93,. 0102, .0106, 



CAT* T h C C- / 




1 

. CC6 

, . CC6 

,.CC6 5,.0C7 ,.0075, .009 

, .0085 , .009 

,.01 , 

1 

.012 

, . C 13 

, . C 14 , .C15 , .016 ,.017 

,.018 ,.0 19 

,.020 , 

2 

. C C6 

, . CC6 

,.CC65, .0 07 5, .008 5,. 0095 

, .0105, .0 115 

,.0125, 

2 

. C 1 5 5 

, . C17 

,.(185, .02 ,.0215, .023 

,.0245, .026 

, .0275, 


DAT* Tt-CH/ 




1 

.006 

, . CC6 

, .0065 , .0075,. 0085, .0095 

, .0105, .0115 

,.012 5, 

L 

.0155 

, .017 

, • C 185 , .02 ,.0215, .023 

,.0245, .026 

,.0275, 


ENC 


.3,2.4, 


.043 , 
.165 , 
.043 , 
.165 / 

.0375, 
. C96 , 

.0070, 

. 0122 / 

.011 , 
.024 , 
.014 , 
.0335/ 

.014 , 

.0335/ 
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MAIN PROGRAM 
**«*##$***** 


CGMMCN/BLCCKA/ALFE( 5,20 ),BTA2( 20 ,9 TP IB I 10) , DEO (20) ,DFQB ( 10 ) ,FHP 
1(5,2C),FH2(2O),FIS2C(20),FI1OGB(8,9) , FI2CBI 5, 20 ) , FK I ( 20 ) , FK SNAP 
2(5 ,20) »HL0B(2C ) , SLP1G6 ( 8,5) , SLP2GB (8,9) ,THAC(20) , THAC9 ( 10) , X ( 5,20 ) 
CDMMCN/BLCCKe/ALFlI20),ALF2(20),ALFPB(5,20), ANGST ( 5, 20 ) , &NGST9 
1(5,6) ,CS( 20 , E M ( 2C) , EM B (5,8),FKSHA(20) ,PPFT1 (20 ) , PPFT2 ( 20 ) , G ( 5, 20 ) 
2,QE(5,20),PB2(20),RN(5) . S CM A ( 2 0 ) , SGMAB I 5 , 20 ) , SGPG9B ( 9) , THTA ( 20 , 
3TMAXC(2C),TMXCE(5,2C),XP(5,20) , Y ANG S B ( 8 ) , YANGS ( 5, 20) 
CCMMCN/BLCCKC/BT API ( 2C ) ,BIAP2(20),r>ELH(20),DELHI(20),DEL2(20), 

1FNC1 (20) »F (5,2C ) »HLCSS( 5, 20 ),R( 5,20) ,U1(20) ,U2( 20) ,VU(5,20) , V Z ( 5, 
220 ) 

COMMCN/BLCCKO/ I, JBASE, JL, JL IM,K ,KLI M,KPR( ,3R,QRLN, THL 
CCMMCN/8LCCKE/X 1 (5 ,20 ) , VZ E ( 5, 20 ) , VZ 1 ( 20 ) , VU8 ( 5 , 20 ) , VU1 ( 20 ) , 

1HB( 5,20 ,H1(2C) 

COMMCN/BLCCKF/ IL IM, IRUN, IEXLCS( 5) , IEXDEV( 5) , K2LM( 5) ,L2LM(5) 
ltLSTAR (5), PH IBE(5, 20 ),XFB(5, 20) ,CMEGBB ( 5 ,20 , 20 ) ,DEL2e(5,20,20) 
2,PHIEXI20),RSTAR(5),AREAI5),ARFAC(5) 
CCPBCN/BLCCKG/K2LIM,L2LIM,YPHI3B(20} , YXPB ( 20 ) , YCMGBB ( 20,20) , YDEL2 
1B(2C,2C),VPHIEF(2C),YR(20),PHIEFC(5) 

COMMCN/BLOCKH/ IC , I L , I PR I , JP R I , K 1L I M 

COMMCN/BLCCKI / FXPBB(7,7),F ID I FB ( 7 ) , PPHB ( 7) , STAR I (20 ) 
COMMCN/BLCCKJ/EMEEl 8) ,F 1 1C I 1 ( 40 ) , FI 10 12 (32 ) , FKI B( 7 ) , SLP1 1 1 ( 16 ) , 
ISLF1I2(16) ,SLP1 13(16 ),SLP 114(16 ),SLP II 5(8), SLP2IK 16) ,SLP2I2(16), 

2 SLP 213(16), SLP2I4(16),SLP2I5I8) ,TMAXCB (7) 

CCMMCN/BLCCKK/YC ECB (20 ) ,YRPB( 7 ) , YTHAC9 ( 20,7) , YXDB ( 20 ) , 0EQ3B ( 5 ,20) 
X,RPEE(5,7) ,TFACBE(5,2C»7) ,XCBB(5,20),HLCP(20) 

COMMCN/BLOCKL/I I , 10 

C0MMCN/BLCCKN/KLZ(5 ) , L L 2 ( 5 > ,YXDB8(20),RPBB1(7), THCBB 1(20,7), 

1RP BB 2 ( 7 ) ,THC8B2( 20,7) »YCECBB(20) 

CCMMCN/BLCCKP/YFKIB(5»7 ), YTMACB( 5,7) 

DIMENSION YTMAXC(5,20),HL0SS1 (20) 

DIMENSION ALPHZ ( 2 0 

DATA ALPHZ/' V Z E ' , ' ( XI ) ' , ' VUB ' , ' ( X 1 ) * , ' HB , , , (X1) , , , ALF', 

1 ' B ( X ) ' , 1 T','MXCB' ,' ( X P ) • , • Y ' , ' FK 1 9' , ' ( YTM ' , 

2 * AC B ) ' , • F *, ' I 20B* , '(XP) ' , • FHB','(XP)'/ 

1 1 =5 

10=6 

DO 340 J= 1 , 8 

340 ANGSTBI 1 , J)=YANGSB( J) 

1NFLT PROBLEM C ECNETRY AND REFERENCE TABLES. 

CALL INPLUC5) 

INITIALIZE STREAMLINE RADII, HEAD LOSS AND BASE STREAMLINE VELOCITY. 

5 DO 5 J=1,JLIM 
Z= J 
ZL = JL 
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FZ=(Z-1.)/ZL 

R( !LIM,J)=FZMXP(IL,KLIM-XP( 1L t n ) + XP( I L t 1 ) 

HLCSS ( [ L I N , J) = C. 

DO A 1 = 1, I L 

R ( I , J ) = F Z * ( X ( I » KL I M ) - X ( I, 1) )+X< 1,1) 

9 HLCSSI I * J ) = C . 

REAC ( l I , 6CC) IC , VZ! 1 , JBASE ) 

IF ( IC-70 ) 14, 11 ,14 

11 DO 12 I =2 * I LI M 

12 VZ(I,J2ASE)=VZ!1,JBASE) 

INFLT PURP INLET CONDITIONS, AXIAL STATION BLOCKAGE FACTOR AND 
CONFUTE STREANFUNCT ION C I STR I BUT ICN . 

13 RE AC (I I, 6CC ) ID, PF IRON 
IF ( F H I RUN ) 131, A5 ,133 

131 WR I T E ( IC,616) 

CALL INPUT l ( £5 ) 

133 XR = I P UN 

PH IRLN = XR + PHIRUN 
I F ( IC-80) 1A, 113, 1 A 
113 WR ITE (I C , 5 19 ) 

WRITE! IC, fcOl ) PHI PLN 
REACdl, 615)10, KILIM 
IF ( IC— 81) 1A,7C1,IA 

701 RE AC ( II, 6CC)IC f (Xi(l,K),VZP(l,K),VUB(l,K),HB(l,K),K=l, KILIM) 
IF ( IC-82) 1 A , 70C , 1A 

700 R E AC ( II ,6CC> IC, (ARFAC! I) ,1=1, I L ) 

IF ( IC-83 ) 1A , 15, 1A 

15 WR ITE ( IC ,520 ) 

WRITE IIC, 521)1X1(1, K),VZE(1,K) , VUBll ,K) ,HB( 1 ,K ),K=1 , KILIM) 

16 CALL FIT1C(R»VZ1, XI, VZB,JLIM, KILIM, 1,1, 1 WARN) 

GO TO ( 1CC2 »1CC1 ) , I W A F N 

1001 WRITE! 10 , 9COIALPHZ! IZ) »IZ = 1,2) 

1002 CALL F IT1C (R ,VL1 ,X1 , VUP , JL I N , KILIM, 1, 1, IWARN ) 

GO TC (1CCA,1CC3 ) ,IWARN 

1003 wRITElIO ,900 ) ( ALPFiZ! I Z ) , I Z = 3, A) 

l CO A CALL F IT1C (R, HI ,>1 ,HB,JLIN, KILIM, 1,1, IWARN) 

GO TC ( 10C6 , 1CC5 ) , IWARN 
1005 WRITElIO , 90C ) ( ALPF-Z! I Z) » I Z = 5 , 6 ) 

1CC6 DO 16C J= 1 , JL I M 
VZ ( 1 ,J ) = V Z 1 1 J ) 

VU(1 , J ) =VU1 ( J ) 

160 HI 1 , J ) =H 1 ( J ) 

GB (l, 1 ) = C. 

DO 161 J=2*JLIM 

16 1 QB ! 1 , J )~QB ! 1 , J- 1 ) +705.0217* (VZ! 1,J-1)+VZ(1,J) )*(R(l»J)*RCi»J) 
1-R (l, J-l ) *R (1, J-l ) ) 

QRLN = GR( 1 , JLIR ) 

DO 162 J = 2 , JL I N 

162 GB(l,J) = Ce ( 1 , J ) / CPUN 
GR =7C5.C217/GRLN 
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PHIB = CRUN/ (!R(1, JLIM)*R (1,JLIM)-R(1, 1 )*R( l, 1) )*1410. 1*USTAR ( 1) ) 

00 6 7 1 = 1 » I L 

IF ( IEXLOS(I) ) 62 , 62 ,63 

62 IF ( IEXOEV(I) )67, 67,63 

COMPUTE STATION ANNULUS AREA AND EFFECTIVE FLOW COEFFICIENT. 

63 AREA(I)=3.1416*(R( I. JLIM)*R(I, JLIMJ-RU ,1)*R< 1,1) ) 

66 PH I EEC ( I )=PHIB*1 /REA (1> /AREA (I) ) *ARFAC ( I ) *( UST AR( D/USTARI I ) ) 

IF (1-1)610,611, 6IC 

611 WRITE! IC, 612) 

610 WR ITE ( 10,614) I, PFIEFC! I ),LSTAR( I) ,ARFAC{ I) 

67 CONTINUE 

TRANSFER LOSS ANC DEVIATION ANGLE REFERENCE TABLES PER LOSS ANO 
DEVIATION ANGLE CPTICNS. 

DO 42 1=1, IL 

18 IF ( IEXDEVt I ) ) 2 32 ,232,233 
233 KK=K2LM( I ) 

LL = L2LM ( I ) 

DO 230 K= 1 ,KK 
230 YPhiee (K)=PHiee( i,k) 

DO 235 L=l ,LL 
YXPE!L)=XPE(I,L) 

DO 235 K= 1 , KK 

235 YDEL2B(K,L)=0EL2ECI,K,L ) 

232 LINDEX=IEXLOS( I ) +5 

GO TC 1401 ,403,401 ,40 3,408,409) ,L INDEX 
409 KK =KLZ ( I ) 

LL = LLZ< I ) 

DO 2301 K= 1 » KK 

2301 YPHIBB (K)=PHIEE ( I,K) 

DO 2302 L=1,LL 

YXPE { L )=XPE ( I , L ) 

DO 2302 K= 1 , KK 

2302 YOMGEB (K,L)=0MEGE6(I,K,L) 

GO TO 408 

401 KK=KLZ ( I ) 

LL=LLZ ( I ) 

DO 402 K=1,KK 

402 YXCE (K ) = XCEB ( I,K ) 

DO 4C6 L= 1 ,LL 

YR PE (L ) = RPEE ( I ,L ) 

DO 4C6 K= 1 ,KK 

406 YTHACB(K,L)=THACEB(I,K,L) 

GO TC 408 

403 KK = KLZ 1 1 ) 

LL = LL Z 1 1 ) 

DO 4C4 K= 1 , KK 

404 YDECB(K)=OEQBE! I , K) 

DO 4C7 L= 1 ,LL 
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YRPR (L ) = R PE 0 ( I ,L > 
no 4C 7 K - 1 » K K 

40 7 YTE fiCfi (K, L )=T E A C E R( I , K, L ) 

C 

C CONFUTE BLACE RCW INLET CCNCITICNS. 

C 

403 CALL F IT1D(R, ALFl ,X, ALFE, JLIM,KLIM, I , I , IWARN) 

GO TO ( ICC 8* 1CC7 ) * IWARN 
ICC 7 v* R I T E ( 1 0 ,900) ( ALPHZI I Z) ,IZ=7,8) 

1 CC 8 00 19 J=1 , JLI M 

PPFT 1 C J>= (R(I, JL IM)-RC I,J ) )/(R( I, JLIM)-R( I, L) ) 

U1 ( J)=.1C412*FM I )*R 1 1 » J ) 

BTAP1(J) = ATAN( CL1(J) — VL( I * J ) ) / V Z ( I , J ) ) 

ALF1 (J )=.C17453*ALF1(J ) 

FN C 1 (J)=ABS(BTAF1(J) ) — AESIALFl(J) ) 

19 GS(J)=L1< J )*VUI I,J) 

K— I + 1 
KHLCSS=0 

SAVE BLACE ROW INITIAL FEAD LOSS. 

DO 850 J=1,JLIM 

850 HLCSS1 ( J) =HL > CSS( I , J) 

INTERFCLATE PROFILE MAXIMUM THICKNESS AND INCIDENCE ANGLE CORRECTI 
FACTOR, CCMPLTE RADIAL ECLILIBRIUM ANC CONTINUITY SOLUTION AND 
DETERMINE F E A C LCSS. 

851 DO 41 KLK = 1 , 4C 
LOK=KLK 

CALL FIT ID [R,TMAXC,XP,TMXCB,JLIM,KLIM, I, K, I WARN) 

GO TC (1C1C,1CCS ), IWARN 
I CO 9 WRITEUO »90C ) ( ALPHZ < I Z ) » I Z-9, 11) 

1010 DO 2 50 J^l , JLIM 
250 YTMAXC ( 1 , J ) =TMAXC ( J) 

CALL FIT1C (YTMAXC, FK I , Y T M A CB , Y FK I B , JL I M , 7, 1,1, IWARN) 

GO TC (1C12,1CI1 ) , IWARN 

1011 WR I TE ( IC ,9CC) (ALPHZI IZ) ,IZ=12»15) 

1012 CALL RACECC < £13, EE52 ) 

34 CALL FIT1DIR, F I S2 D , X P , F 12 CB , JLIM, KLIM, I, K, IWARN) 

GO TC (1014,1013 ), IWARN 

1013 WR I T E ( 10 »90C)( ALPHZI I Z) ,12=16,18) 

1014 CALL FIT1C(R,FF2»XP*FHB , JLIM, KLIM, I ,K,IWARN) 

GO TC (1016, 1C15 ), IWARN 

1015 WRITEIIO ,9GC)(ALPHZ( IZ) ,12=19,20) 

1016 CALL L C S S ( R , V Z » V L , BT AP 1 ,B T AP 2 , F NC 1 , U 1 , U2 » FH2 , 

1 F I S2C,CECB , TRACE , I , K , JL IM ,H LOB , DEC, T HAC ) 

C CHECK HEAD LOSS CONVERGENCE AND OUTPUT COMPUTED RESULTS. 

C 

801 DO 37 J= 1 , JL I M 

3 6 IF (AES (HLCE(J)-HLCSS< I, J) )-THL* ABS < HLCS S < I, J) ) >37,37,40 0 
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37 CONTINUE 

CALL CLTPLT 
GO TC 42 

REVISE EEAC LCSS . 

400 IE ( IEXLCSI I ) .GT.C ) GO TC 412 
GC TC 1411,411, 412, 413), LCK 

413 XJ CE = 1 . C 
GC TC 414 

411 X J C E = .5 
GO TO 414 

412 X J C E = .65 

414 IF ( KELC S S . EG . C I GC TO 8fcC 

REASSIGN E FAC LCSS ANC REPEAT ITERATIONS TO LCSS CF SOLUTION. 

IF ( LCK.LT.LCK1 I CC TC 86C 
CALL OUTPUT 
WR ITE ( IC,880) LCK 
IF (LCK.GE .ICKLIM GC TC 870 
860 IF (LCK— 40)40,841,841 

40 00 41 J=l, JLIM 

41 HLOSS l I , J ) =HLC S S (I,J)+XJCE*(HLCP(J)-HLCSS(I,J) ) 

OUTPUT MESSAGE E E AO LCSS NCT CCNVERGEC AND OUTPUT COMPUTED RESULTS. 

841 WRITE ( 10,513) 

CALL OUTPUT 
GO TG 6 7 C 

OUTPUT INTERMECI ATE ITERATION RESULTS PRIOR TO LOSS CF SOLUTION. 

852 WR ITE ( 10, 854) LCK 

IF (LCK -4)672,871, 871 

872 IF(LCK.GT.l) GC TC 874 
GO TC 870 

871 WR ITE ( IC , £56) 

KH L C S S= 1 
LCKL I N=LCK-1 
L 0 K 1 = L C K— 3 
CO 8 5 3 J= 1 , JL I M 

853 HLCSSII, J)=HLCSS1( J) 

GO TC £51 

874 WR ITE ( 10,855) 

KHLC S S = 1 
LO K L I M= LCK- 1 
L0K1=LCK-1 
00 E 7 3 J= 1 , JL I M 

873 HLCSS ( I , J )=HLCSS 1 ( J ) 

GO TC £51 
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INITIALIZE FEAC LCSS TG ZERC. 


870 DC 43 J=1 , JLIR 
43 HL C S S ( I » J ) =0 
42 CCM INGE 
GD TC 13 

14 WR ITE ( I C » 5 10 ) ICtvtKfL 

510 FQPMTI//' ERROR IN INPLT DATA CARD. ORDER, MAIN PROG RAM 2X , 


, mp.i t i J=*tI3t w K = • *13?* 

513 F0RPATUM////44HCLCSS SOLLTICN NOT ACHIEVED IN 40 ITERATIONS) 

519 FQPR AT (17H1 INLET CONDITIONS) 

520 FORRAT ( 36HC R v 1 

52 1 FO RR AT (4F 10.4 ) 

600 FOPRATII2 ,IT3,12F6.4) ) 

60 1 For^ATUCX, 1 PFIFLN N0.'»F10.2) 

612 FORRATI//' 1 PHIEFC 

614 FO RR AT { 5X , 12 , 3F 12 .4 ) 

616 FORMAT (//• l FLCK PATES CCMPLET ED-NEXT READ NEW RPM OR NEW GEOMETRY 

854 l FQRR AT ( 1H0, 'SOLLTICN FAILURE DUE TO NEGATIVE RACICAND DURING LOSS 

ESS^-OrSaTIIHO^SCLLTION FOR THE LOSS ITERATION PRECEDING FAILURE IS P 

BSfc'fWMuScI'sClUICNS ECA SEVERAL LOSS ITERATIONS PRECEDING FAILUR 
IF APE PRINTED NEXT* ) 

900 FORM ATI//* ***** 1 WARN I NG^— ^F ITID^C ALLED IN MAIN - EXTRAPOLATION OF 
1TAELE ' , 4 A4 ) 

ENC 


vu 


LSTAR 


H) 


ARFAC' //) 
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SUBROUTINE FIT1C 

4 * 4 4 4 « « 4 4t 4 4: «(!*¥» 


c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


1 (X,Y,XB,YB,JP,KP,I,K,IKARN) 
CCNKCN/BLOCKL/II ,10 

DIMENSION X(5,l),V(l)fXB(5, 1 ) , YB( S# 1) 


3 FCINT LAGRANGIAN INT E R PCL AT I ON FOR Y(X) FR CM DATA TABLES YBIXB) 
XB-^RRAY ELEMENTS ARE ARBITRARILY SPACED, MONOTCNE INCREASING. 
IWARN-2 INCICATES EXTRAFCLA TICN OUTSIDE RANGE CF XB ARRAY. 


I W AR N = 1 

IF (X(K,l)-XBl I, I) ) 15,16,16 

15 FW ARN = 2 

16 DO 3 J=1,JP 
DO 1 M=3,KP 
L= M 


BRACKET INTERPOLATE X hlTh THREE NEIGHBORING POINTS IN XB ARRAY. 

IF (X(K,J)-XB( I ,L ))2,2,1 

1 CONTINUE 
I WAPN =2 

2 X 0 =XB(I,L- 2 ) 

X 1 =XE ( I , L — 1 J 
X2 = XB( I ,L ) 

CCMFLTE INTERPOLATED Y(X). 

^ Y J J) = C X( K,J ) XII *(XCK,J )— >2)*YBCI ,L-2 ) / ( ( X0-X1 ) *i XO- X2 ) ) 

1* ( X C K , J )-X2I* (X ( K , J )-X0 )*YB II , L-l )/ ( ( X 1-X2 ) *( Xl-XO ) ) 

2 :i" ( !:: J, * >C,MMK ’ J) - X1) * V8 < I ,L)/nX2-X0)^X2-Xl) ) 

Rc TURN 

END 
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SUBROUTINE FIT2C 


1 ( X , Y »Z»XBtYE*ZE, IP»JP»JL» I Q , J Q » I W AR N ) 

COMMCN/BLCCKL/II ,IC 

DIMENSION XUI,Y(l),Zll) f )(eill,ZB(l),VST{3) 

DIMENSION YE(IQ,JC) 

3-FCINT LAGRANGIAN I NT E F PCL AT I ON FOR Y(X,Z) FROM OATA TABLES 
YB ( X E » Z B ) . XB,ZB ARRAY ELEMENTS ARE ARBITRARILY SPACED, MONOTONE 
INCREASING. IWARN=2 INDICATES EXTRAPOLATION OUTSIDE RANGE CF 
XE, ZB ARRAY. 

IW £PN = 1 

IF (X(I)-XE(l) ) 16,17,17 

16 I W AR N = 2 

17 IF (2 (1 ) — Z Eli) ) 18,19, 19 

18 I W ARN = 2 

19 DO 6 N= 1 » JL 
DO 1 M - 3 , I P 
I = M 

BRACKET INTERPOLATE X WITH THREE NEIGHBORING POINTS IN XB ARRAY. 

IF (X(N)-XE(I) ) 2 , 2 , 1 

1 CONTINUE 
I W ARN = 2 

2 DO 3 M = 3» JP 
J- M 

BRACKET INTERPOLATE Z WITH THREE NEIGHBORING POINTS IN ZB ARRAY. 

IF (ZIN)-ZB(J) K, A, 3 

3 CONTINUE 
I W ARN = 2 

A XO = Z E ( J-2 J 
XI =ZE < J— 1 ) 

X2 =ZB ( J ) 

DC 5 K= 1 , 3 
L= I +K 

YO=YE (L-3, J-2 ) 

Y1=YE (L-3 , J-l ) 

Y2=YB(L-3,J) 

COMPUTE INTERPOL AT EO YSTtXB,Z) AT THREE NEIGHBORING POINTS IN 
XB ARRAY. 

5 YST <K) = ( Z (N)-Xl ) *(Z(N)-X2 )*YO/( (XO-X1 ) * I XO-X2) ) 

1 + < Z(N)-X2)*(Z(N)-XO)*Yl/( (XI— X2)*(Xl— XO) ) 

2 ♦ ( Z(N)-XO)*(Z(N)-Xl)*Y2/( ( X 2-XO ) * ( X2-X1 ) ) 

XO = X E ( 1-2) 
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xi = xe ( 1-1 ) 
x 2 = xe ( i ) 

CONPITE INTERPOLATED Y(X,Z). 

6 Y(M = (X(M-X1)*(X(N)-X2 >*YST( 1 )/ ( (XO-X1 ) *(XO-X2 ) ) 
l+( X(N)-X2)*(X(M-X0J*YST(2) /( ( X 1-X2) * ( Xl-XO) ) 

2 + <X(N>-XO>*iX<M-XU*YSTm/UX2-XO>*<X2-Xl) ) 

Kc TURN 
ENC 
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SU0KCITINE CEV 
************** 


c 

c 

c 


c 

c 

c 


l«TAR(5I.PHiee(5.201.XFe{5,20) 

^;^;^^”nri:t":i;;^B 5 ^:,vxp el 2 o,.vc^a l 2 o. 2 o,.»o EL2 

S LF 2 l 3 l 1 6 5 »SLP2 1 4 ( 16) » SLP2 15 (8 ) » TMAXC B (7) 

OfNCN/BLCCKL/ I I r IC 
if MENS ICN E XPe (2 C > f F I D I F ( 20 ) 

MENS ION ALPHZ ( 10) 

,Ti fll PHZ / • YCE ' » ' “ 


XT A 


i 1 Li> c A r c v c v. / t • 1 ^ 

^LPhZ/' P YCE*!'L2B( • » • YPHI * , * BB , Y * » • XPB ) ’ t ' EX* ,'PBB( * » 
•FIDI 1 t'FBfP' t'PHB) * / 


PPFT2 ( J|=(R(K » JL IM)-R(K ,J)) /(R(K, JLIMJ-RIK, 1) ) 

45 TH T A ( J ) = AB S ( ALF 1 ( J )- ALF 2 ( J) ) 

CALL IRFF 

IF ( IEXCEV ( I) )43,4Ct42 

CALCLL ATE CEVIAT1CN ANGLES USING CARTER'S RULE. 

40 CALL FITIC(YANGSiEMfANGSTB»EMBfJLlMt8»l»K f I WARN > 

GO TC ( 5 1 » 50 ) » I W A PN 

50 WRITE! IC* ICC) 

51 CC 4 1 J=ltJLIV 

41 DEL2(J) = £^ (J)*ThTA(J)/SCRT(SGMA(J)) 

RF TURN 


c CALCULATE CEVIATICN ANGLES FROM INPUTED REFERENCE TABLE 

C 

42 KK = K2LM ( I ) 

LL=L2LM( I ) 
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* JUM.20, 


CALL FIT2C (YPHI Ef , DEL2» YR , YPHI BB, YDEL 2B , YXP8.KK ,LL 

1 2 C* I WARN } * 

GO 70 (55,54) , IWARN 

54 WR I TE ( IO,101)(ALFHZ( 12) ,12= 1,5) 

55 RETLRN 


CALCLLATE DEVIATION 


ANGLES USING CAMBER EXPONENT RULE. 


43 

52 

53 
47 


56 

57 
46 


rn L Tr F | I ^ C Iot N ^, S I EMf ANGST8,EMB ’ JLIM,8f l?K » I WARN > 

OU TC (53 ,52) ,IWARN 

WR ITE (10, ICO) 

00 47 J=1,JLIM 

FI C I F ( J J=FNCl ( J) *57. 295 78- STAR I ( J) 

ra L ic F !5?^6!°!«Rr B ’ p,>FT2 ’ FI0,F6 ' EX ‘ >e6 ’' >PHe ’ 7 ’ 7 ’ JUM ’ 7 ’ 7 ' i “'' RN ' 

WR ITE (10, 101) (ALPHZl I Z) ,12=6,10) 

00 46 J= 1 » J L I M 

L°SCRT(SGMA( JM ) <THTAlJ, * 57 * 29578> ** EXPB<Jn/(57 * 29578 * 

RETURN 


100 FORMAT (//• ***** WARNING 
1T1C-CALLEC IN CEV) 

101 FORMAT (//' ***** WARNING 
1 ABLE • , 5A4 ) 

END 


EXTRAPOLATION OF TABLE EMB(ANGSTB) IN FI 
FIT20 CALLEO IN DEV - EXTRAPOLATION OF T 
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SUBROUTINE INCH 
C *4= * * 4 4 * 4 « 4 4 * * 4 4=4 


COPPCN/BLOCKA/ ALFR! 5 , 2C ) , BT A2 l 2 0 ) , 8TP l B ( 1 0) , DE Q ( 2 0 ) , OE QB ( 1 0 ) , FH 6 
l(5»2C)*Ft- 4 2(2G),FIS2C!20)*FI10G9(8,9),FI2DB!5»20)»FKI(20)»FKSHAB 

2<5 ,20) ,HLGE!2C) , 5LPIGB ! 8,9) ,SLP2GB!8,9) ,THAC!20 ) ,THAC8! 10) ,X 1 5,20 
COPPCN/ELCCKE/ALF1!20)»ALF2(20),ALFPB!5*20) , ANG ST ( 5* 20) « ANG STB 
1 (5 , £ ) , C S ( 2 C ) * E V ( 2 0 ) * EMB (5 ,8 ) , FKSHA ! 20 ) » PPFT 1 ( 20 ) , PPFT2 ( 20 ) , Q ( 5 , 20 
2»QE(5*2C)»RB2(2C),RN(5),SCMA(20) ,SGMABI 5,20) ,SGPGB3(9) , ThT A ( 20 ) , 
3TMAXC (20) ,TPXCE (5,20) ,XP{ 5,20 ) , YANGSB ( 8 ) , YANGS l 5, 20) 
COPPCN/BLCCKO/I , J e A S E , J L , JL I P , K , KL I P , K PR I , QR , QRUN , THL 
CQPPCN/BLCCKF/ IL IP, IRUN*IEXL0SI5), I E XDE V 1 5 ) , K2L PI 5 ) , L2L P ! 5 ) 

1 . USTAR ( 5 ) ,PHieE (5 ,20 ),XFB (5 , 20 ) ,CMEGBB ( 5, 20 , 20 ) .DEL2BI 5 , 20, 20) 

2, PFIEX(2C),RSTAR (5), AREA! 5) ,ARFAC15l 
CCPPCN/BLCCKH/ I C , IL , I PR I » JPRI » K1 LI M 

COPKCK/ELCCKI/ EX PB E < 7 , 7 ) , F ID l FB ( 7 ) , PPHB ( 71 , ST ARI ( 20 ) 
CQPPCN/BLCCKK/YCEC8!20) ,YRPE(7) , YTHACe ( 20,7 ) , YX CB ( 20 ) , DEQBB l 5 , 20 ) 
X,RFEE !5»7)»ThACBEl5*2C»7) ,XCBB( 5,20) ,HLDP(20) 

CCPPCN/BLCCKL/ I IN, IOUT 

COPPCN/BLCCKM/KLZ 15) ,LLZ( 5) , YXC E E ( 20 ) ,RPBBl 17), THCBBll 20, 7 ) , 
1RPEE2(7),TFCBE2( 20, 7 ) , YCECBEI 20 ) 

CCPPCN/BLCCKP/YFKIB(5»7 ) , Y TP AC B I 5, 7 ) 

WR 17 E ( IOUT ,9125) 

WR ITE ( IOUT ,5074) 

8 WRITE ( IOLT »503)IRLN,J8A$E,JLIM 
WR ITE I IOLT , 5076 ) 

C 

C OUTPLT REFERENCE INCIDENCE ANGLE TABLES. 

C 

WRITE! IOLT, 5031) !YTMAC E (1,K),K=1,7) 

WRITE! IOLT, 5078) (YFKIB! 1,K) ,K=1, 7) 

WR ITE! IOUT, 5077) 

WRITE! IOLT, 5034) 

WR ITE I IOLT, 5032) (SGMGBE (L)»L=1,9) 

CO 61 K= 1 , 8 

WRITE! IOLT ,503 3) YANGSB (K) , (FIIOGBIK.L) ,L=1,9) 

61 CONTINLE 

WR ITE! IOLT, 9124) 

00 62 K= 1 , 8 

WR ITE ( IOUT, 5033) Y ANGSB (K ), (SLP 1GB!K,L ) ,L=1, 9) 

62 CONTINLE 
WRITE! IOUT, 9124) 

CO 63 K= 1 , 8 

WR ITE ! ICLT ,5033) YANGSB IK ) , ISLP2GB ! K , L ) ,L=1,9) 

63 CONTINLE 

OUTPLT BLADE PCW RPP, REFERENCE RADIUS AND LOSS AND DEVIATION 
ANGLE CPTICNS. 

DO 53 1=1 , I L 
WR ITE! IOLT, 5038) 
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c 

r 

Ur 

r. 


c 

c 

c 


WR IT E { IOUT , 5C5 ) I 9 RN (T) ,RST 4R ( I) t IEXDE V (I) 9 l F XL CS (I) 
WRITE(ICtT,5C6) 

WRITE! ICL T » 50 7 ) 

OUTPUT REFERENCE BLADE ROW GECMETRY TABLES. 


8 1 WRITE! ICLT,508) ( J,X(l ,J),ALF0( I , J ) , XP ( I , J ) , AL F Pe( I»J),SG M 4R( I.J1 
1TMXCRI I,J)»FI2CB(I«J),FHB(I , J ) , FKSH AS ( I , J) ,J=1,KLIM) 


OUTPUT REFERENCE DEVIATICN ANGLE TABLES. 


IFIlEXOEVim 9113,911,9112 
9113 WRITE! IOLT ,5C61 ) 

WR ITE ( IOUT ,5C9 1 ) 

WRITE! IOLT, 600 !FIOIFB(K) » K = 1 , 7 ) 

WR ITE! IOLT , 9 1 2 A ) 

DO 360 L = 1 , 7 

360 WR ITE ! IOLT, 630 ) F PHB ( L ) , ( EX P8 B I K , L ) , K = 1 , 7 J 
GO TC 900 

911 WR ITE ( ICLT,5082 ) 

WR ITE ( IOUT ,60 Cl ) ( YANG SB (K ) ,K=1 , 8) 

WRITE ! I0LT.6CC2) ( EMS ! 1 , K ) *K = 1 , 8 ) 

GO TC 900 
9112 Kl=l 

IF !K2LM< I 1-10)912,912,921 
921 KK = 1 C 
LL 1=2 

GO TC 9211 

912 KK = K2LM( I ) 

LL 1=1 

921 1 LL = L2LM ( I ) 

WR ITE! IOUT, 5083) 

WR ITE { IOUT, 9122) 

DO 981 L1=1,LL1 

WR ITE! IOUT, 91 23) (PH IBB! I, K) ,K=K1,KK) 

WRITE ( IOUT ,9124 ) 

DO 98 L=1 , LL 

WRITE! IOUT , 542 ) >PB { I , L ) , ( DEL 2B ( I , K ,L ) ,K=Kl,KK) 
DO 98 K= K 1 , KK 

98 DEL2B! I,K,L) =C . C 1 745 3*0EL2B ( I ,K ,L) 

IF (LL 1—1)962,981,982 
982 KK = K 2 L M ( I ) 

K 1 = 1 1 

WR ITE ( ICUT ,9124 ) 

981 CONTINUE 


coeffic^ent R tables LA ° E WAKE momentum thickness/choro OR LOSS 

900 LI NDEX= IEXLCS ( I ) 45 

GO TC (899,856,895,898, E97, 896) ,LINDEX 
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IF ( KLZ l I > 

896 1 KK= 10 
LL 1 = 2 

GO TG 8962 
8963 KK = KL Z ( I ) 

LL 1=1 

8962 LL = LL ZII ) 

WR I T E < IOUT 
WR HE ( IOUT 
DO 92 L 1 = 1 
WRITE! IOLT 
WR IT E t IOUT 
DO 95 1=1* 

WR ITE ( IOUT 
95 CONTINUE 
IF (LLl-l > 

97 KK = KLZ ( I ) 

K L = 1 1 

WRITE! IOUT 
92 COM INUE 
GO TC 53 
899 Kl= 1 

IF (KLZ! I )- 

8991 KK = 10 
LL 1=2 

GO TO 902 

8992 KK = KLZ ( I ) 

LL 1=1 

902 LL = L L Z 1 1 ) 
WRITE! TOUT 
WR ITE ( IOUT 
DO 9021 Li 
WR ITE ( IOUT 
WRITE ( ICUT 
DO 504 L= 1 
WR IT E ( IOUT 
904 CONTINUE 
IF (LL 1—1 ) 
9041 KK = KL Z I I) 

K 1 = 1 1 

WR ITE ( IOUT 
9021 CONTINUE 
GO TC 53 
89 8 K 1 = 1 

IF ( KLZ 1 1 )~ 
898 1 KK = 10 
LL 1= 2 
GO TO 901 
8982 KK =KL Z 1 1 ) 
LL 1=1 

901 LL = L L Z ( I ) 
WR ITE ( IOUT 


-1C) 8563,8963,8561 


,553 ) 

,543 ) 

*9123) l PH IBB! I»K) ,K=K1,KK) 

,9124) 

^5422 ) XP8! I , L) , (CMEGBB! I »K,L ) ,K=K1,KK) 
57 , 52,57 


,9124 ) 


10)6552,8992, 8951 


,554) 

,566) 

,563)(>CBBII«K) ,K=K 1 ,KK) 

,9124) 

’,564) PPBB(I,L),(THACB6U,K,L),K=K1,KK) 

9041,5021,9041 


,9124) 


10) 8562,8982,8581 


,570 
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903 


9031 


897 


93 


= K1,KK) 


(DEQB!K),K=1, 10) 

( THACB ( K) ,K=1 , 10) 


FT* ,10 


WRITE! IOUT , 562 } 

00 9 C 11 L 1 = 1 ,LL 1 

WRITE! IOUT , 563 ) ( CEQBB ( I ,K),K=K 1 ,KK) 

WRITE! IOliT , 9124 ) 

00 903 L= 1 , LL 

CONTINUE^ 1 ,564 5 FPBB(I » L >» ITHACBB 1 1 ,K,L >,K = 

IFILLl- 1 ) 9031 , 9011,903 1 
KK=KLZ ( I > 

Kl = ll 

WR ITE ( IOUT , 9124 ) 

9011 CONTINUE 
GO TO 93 
WRITE ! ICUT , 55 C ) 

WRITE! IOUT , 551 ) 

WR ITE! IOUT , 552 ) 

CONTINUE 
RETURN 

503 FO RW AT (4X , • IRUN= • , 14, 10X, • J 8ASE= ' , I 3, 10X, ' JL I M- • T3I 
IX, I EXOEV= * , 12 , 1 CX, • IEXLCS= • , I 2,//) 

50 \pENOElirj < CSs"A E ^V/ E , TAeLES F ° R BLADE R ° W Ge ° METRY AND GEOMETRY-OE 

508 F 0 RMAT! 9 X,I 2 , 9 F 1 C. 4 ) '* 

FORMAT < 9 X,F 8 . 4 , 2 X, 10 F 8 . 4 ) 

F 0 RRAT( 12 X, , XPB' , 43 X, , PFIBB'/) 

S:!!I! // * 7X - , " E «^CE TABLE LOSS! THACB) •//} 

FO PM AT !/ 10 X,'CECE= ♦, 10 F 8 . 2 ) 

FORMAT! 10 X , • THACB=» , 10 F 8 . 2 ) 

FORMAT !//, 7 X, ’REFERENCE TABLE 
FORMAT !//, 7 X,' REFERENCE TABLE _ 

FORMAT (llX,'RPeB , , 45 X, • CE CBB • /) 

FORMAT ! 17 X, 10 F 10 . 4 ) 

FO RMAT! 6 X»F 1 Q. 4 » IX, 1 OF 1 C. 4 ) 

FORMAT ! 11 X, 'RPEE , , 45 X, ' XG BB ’ / ) 

,,ELE LCSS '™«“"'/> 

FORMAT! 5 X,F 10 . 3 , 2 X, 7 F 10 . 3 ) 

FORMAT ( 7 X, • VT MAC F = * , 7 F 8 .2 ) 

F 0 RMAT! 13 X, 9 F 10 . 1 /J 
FORMAT ! 5 X,F 7 . 2 , 2 X, 9 F 10 . 3 ) 

F 0 RMAT( 7 X,*YANGSE* , 43 X, ' SGMGBB* / ) 

FORMAT !// 4 X, ’ELACE ROW CATA'//) 


542 

543 

550 

551 

552 

553 

554 
562 
56 3 
564 
566 
570 
600 
630 

5031 

5032 

5033 

5034 
5038 
5074 
5076 


LCSSI0MEG8B)*//) 

LGSS(THACBB)*//) 


1CT ICN • / ) 

5077 fSENCE TABLE ZERC-CAMBER INCIDENCE 

5 078 1 EOr“"Jx, E "k.5 E, :!^!^ 1GB ’ SLP2GB,,// ‘ 


angle ANO CAM8E 
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5081 FORMA1 I//7X*' REFERENCE TABLE DEVIATICN ANGLE-CAMBER EXPONENT ( EXP8B 

5082 1 F0RMAT(//7X, ’REFERENCE TABLE DEVIATION ANGLE-SLOPE F ACTOR! EMB I • // ) 
5083 F0PMAT(//7X, 'REFERENCE TABLE DEVIATION ANGLE f DEL28) •// 1 
5091 FORMAT til X» 'PPHB %45X t • FICIFB' / » 

5422 FORMAT (8X»F8.4»2X»ICF8.4) 

6001 FOPMAT(/10X,'VANGSB= , »8F8.2) 

6002 FORMAT ( 10X,'EMe= »,8F8.2) 

912 2 F0PMAT(14X,'XPB' ,45X, • PH BB' / ) 

9123 FORMAT (18X»10F8.4) 

9124 F0RMATI1H ) 

9125 F0RMATC1H1) 

ENC 
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non non non 


SUERGUTINE INPUT 

******* 44 ******* 


l(*J 

COP PCN/BLCCK A/ ALFE(5»20)» ET A2( 20) , BTP IB ( 10) , DGQ l 20) , DEQB ( 10 ) » FHB 
1(5 ,20 ,FH2(2C),F IS20(20 ) , F 1 10GB I 8 ,9 ) , F I 2CB( 5 , 20 >, FK I (20),FKSHAB 
2( 5,20) ,HLGB(20) , SLP 1GB ( 8 , 9 ) , SLP 2GB ( 8 , 9 ) ,THAC (20 ) , THACB ( 10 ) , X ( 5, 20 ) 
CCPPCN/ BLCCK 6/ ALF 1 (20), ALF2 (20 ) ,ALFPB( 5,20) , ANGST (5, 20) , ANG STB 
1(5,6) »CS< 2C ) » EP ( 2 C ) ,EME(5,8 ) , FKSHA ( 20 ) , PPFT 1 ( 20 ), PPFT2 ( 20 ) , Q ( 5, 20 ) 
2,QE(5, 20) ,RB2( 20 ) ,RN( 5) ,SGMA(20) , SGMAe(5,20) ,SGPGBB(9) , THTA (20) , 
3TMAXC (20 , TPXCE ( 5 ,20 ) , X P ( 5 , 20 ) , Y ANGSB ( 8 ) , YANGS ( 5, 20 ) 

COPPCN/BLCCKD/ I , JEASE, Jl , JL I M , K , KL I P , KPR I , QR, QRUN, THL 
COPPCN/BLCCKF/IL IM, IRUN,IEXLOS( 5), IE XDE V ( 5 ) , K2LP( 5 ) , L 2L M ( 5) 

1, LSTAR<5) , PHI BE (5,20), XFB (5 ,20) ,OMEGBE (5 ,20, 20 ) ,DEL2 B ( 5 , 20, 20) 

2, PFIEX(20),RSTAR (5 ) , ARE A ( 5 ) , ARFAC ( 5 ) 

COPPCN/BLCCKG/K2LIM»L2L IP , Y PHI 8 E ( 20 ) , YXPB( 20 ) , YOMGBB ( 20 , 20 ) ,YDEL2 

IB ( 20,20 ,YPHIEF( 2 0) , YR ( 2C ) , PHI EFC ( 5 ) 

COPPCN/BLCCKF/IC, IL, I PR I , JPR I , K 1L IM 

COPMCN/BLCCKI/ EXPBB(7,7) , F ID I FB ( 7 ) , PPHB (7) , ST ARI (20) 
CQMP0N/BLCCKJ/EMBB18) ,F 1 1 0 1 1(40) ,FI 10 1 2 ( 32) , FK I E ( 7 ) , SLP 1 1 1 ( 16 ) , 
1SLP1I2 (16) .SLP1I3 (16) ,SLP 1141 16 ) , SLP 1 1 5 ( 8 ) , SLP2 1 1 ( 16 ) , SLP2 I 2 ( 16 ) , 

2 SLP2 13(16) ,SLP2 14(16) , SLF2 15 (8 ) »TMAXCE (7 ) 

CCPPCN/ BLCCKK/YCECB (20) ,YPPB( 7) , YTHACB ( 20,7) ,YXCB(20) ,DEQBB(5,20) 
X,RPBE (5,7) ,THACEE (5 , 20, 7 ) ,X CBB ( 5, 20 ) , HLCP ( 20 ) 
CGPPCN/BLCCKL/IIN,IOUT 

COPPCN/ BLCCKM/KLZ(5)»LLZ(5),YXDBB(20 ) ,RPBB1( 7) , THCBB 1 ( 20, 7) , 

1RPPE2 (7) ,THCBB2(2C,7) ,YCECEE(20 ) 

CIPENSICN ALPH2( t ) 

DATA ALPHZ/' KLS'Zm 1 , 1 LL','Z(I)',» S'KLIH*/ 

INPUT LIMIT VALUES AND RUN IDENTIFICATION. 

73 READ ( 1 1 N , 501 ) ID , IL IM , J LI P, JBASE, I RUN, THL 
IF ( I C— 10)14,3,14 
3 IL=ILIM— 1 
JL=JL I P-1 
DO 99 1=1, IL 

INPUT LGSS AND CEVIATICN OPTION VALUES. 


RE AC ( IIN,5C21)IC,J,RSTAR(I ) 

IF ( IC— 18) 14,100, 14 

100 IF ( I— J) 14, 101 ,14 

101 READ (IIN, 501 ) IC, IEXLOSl I ) , IEXDEV( I ) 

IF (IC-19) 14,74,14 

INPUT REFERENCE LOSS AND DEVIATION TABLES. 

74 IF ( IEXLOS ( I ) )75»75»76 

75 IF ( IEXOEV < I ) )8CC,800, 76 

76 READ (IIN, 501 )IC, KLZ(I), LLZ(I) 
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o o n 


IF ( I C- 20 ) 14,66,14 

86 IF (KLZl I ) — 3 ) 6C0 »6C 1 » 6C I 
60C WR ITE ( I0LT,1CCC) ( ALPHZl IZ ) , IZ = 1 ,2) , I , ID 
STCP 

601 IFtLLZm-31 EC 2 , 603,602 

60 2 WRITE(IOUT,1000)(ALPHZ( IZ)» IZ=3»4),I,ID 
STCP 

603 K2L IMKLZ( I ) 

L2L IN = LLZ ( I ) 

RE AC (I IN* 533 1 IC > (PHI eB (I ,K ) , K= 1 »K2L IM ) 

IF ( IC-21) 14,78,14 

78 RE AC ( I IN, 533 ) IC , (XPBl I ,K ) , K= 1, L2L IM ) 

IF ( I C— 22 ) 14 » 1C2 » 14 

102 IF ( IEXLOS 1 1 ) ) £9, £9,79 

79 DC EO K = 1 » K2L I K 

RE AC ( I IN, 532) ID » (CMEGB e ( I , K , L ) ,L=1,L2LIM) 

IF ( IC-23 ) 14, 8C, 14 

80 CONTINUE 

89 I F ( IE XDE V ( I) )99,S9»103 

103 DO 85 1= 1 » K2L I P 

RE AC ( I IN , 532 ) I D > (DEL2B (I,L,KJ,K=1,L2LIM) 

IF ( IC-24) 14,65,14 
85 CONTINUE 

K2LM ( I ) = KL Z ( I ) 

L2LMI ) = L L 2 ( I ) 

INPUT REFERENCE WAKE MCMENTUM/CHORD (THACBB) TABLES. 

800 LlN0EX=IEXL0S(I)+5 

GC TC (812 ,812,814, 815, £11) ,L INDEX 

811 GO TC 99 

812 REAC ( I IN , 501 ) I C , KLZ ( I ) , LL Z( I ) 

IF ( IC-25 ) 14,816, 14 

816 IF (KLZ( I ) — 3) 604 ,605,605 

604 WR I T E ( I OUT , 10CC ) l ALPHZ ( IZ), IZ=1,2),I»ID 
STCP 

605 IF (LLZII ) — 3 ) 6C6,6C7,607 

606 WR ITE ( TOUT , 1000) ( ALPHZ ( IZ ), IZ=3,4) , I , ID 
STCP 

607 KK = KLZ ( I ) 

LL =LL Z II) 

802 RE AC ( I IN, 500 ) I C , (XCBE ( 1 ,K ) ,K= 1 ,KK ) 

IF ( IC-26) 14,803,14 

813 REAC ( 1 1 N , 501 ) l C ,KLZ (I), LLZII) 

IF ( IC-25) 14,817, 14 

817 IF (KLZCI ) — 3) 608,609,609 

60 8 WR I T E I l CUT , 1GCC ) (ALPHZl IZ)»IZ=1»2),I,ID 
STCP 

609 IF (LLZII ) — 3 ) 610,611,611 

610 WR ITE ( ICUT , 1000) I ALPHZ (IZ).IZ=3,4),I,ID 
STCP 

611 KK = K L Z ( I ) 
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LL = LLZ ( I ) 

801 RE AC I I IN, 5C0 > IC , ( 0EQ68 { I ,K ) , K= 1,KK ) 

IF { IC-26) 14 , 8C3 , 14 

803 RE AC ( I IN, 5C0 ) IC , < RPBB ( I , L ) ,L = 1 , LL ) 
IFIIC-27) 14,804,14 

804 DO EC5 K= 1 , KK 

805 RE AC ( I IN, 500 ) IC , (TH AC B E ( I , K , L) , L= 1, LL ) 

IF I IC — 28) 14,55,14 

814 KL Z I I ) = 2G 
LLZII ) = 7 

DO 8141 K = 1 * 20 

8141 XDEEII »K)=YXDBfilK) 

00 8142 L=1 t 7 

8142 RP66 (IfL)-RPBBl(L) 

DO €143 K = 1 ,2C 

DO 8143 L= 1 , 7 

8143 THAC8B(I«K,L)-TKCBB1(K»L) 

GO 70 <59 

815 KLZI I ) = 20 
LLZII )=7 

00 8151 K= 1 ,20 

8151 DECEBI I,K) = YDECBE(K) 

00 8152 L = 1 ,7 

8152 RPeBII ,L)=RPB82(L) 

CO 8153 K= 1 , 20 

DO 8153 L= 1 , 7 

8153 TH AC BB I I ,K,L )=TFCBB2IK,L) 

99 CCN7INLE 

C 

C INPUT REFERENCE ELAOE ROW GEOMETRY TABLES. 


OC 6 L = 1 » I L 
REAL ( IIN, 501)10, J 
IF (IC- 30)14, 4, 14 

4 IF { L-J ) 14 ,44 , 1 4 

44 RE AC ( I IN , 5C1 >IC,KLIM 
IF I IC— 31 ) 14,444, 14 
444 IF I KL I M— 3 ) 612,613,613 

612 WR ITE ( IOLT, 10CC) (ALPHZI IZ),IZ = 5,6),L,ID 
STCP 

613 00 6 K=1,KLIM 

RE AC (IIN,5021)IC,J,X(L,K),ALFB(L,K),XPIL,K),ALFPB(L,K), 

1SGPAE !L,K),TMXCE(L»K),F 12CB (L , K ) , FHB (L,K),FKSHAB(L,K) 
IFIIC- 32)14, 5,14 

5 IF ( J— K ) 14,6, 14 

6 COM INLE j 

ENTRY INPLT1 {*) 

CONT INUE 


INPUT BL AOE RCW PPM ANC CCMPUTE REFERENCE BLADE SPEEO. 
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72 DC 7 K= l , I L 

REAC ( IIN,500)IC,PMK) 

I F C I C— 50 ) 14,71,14 
71 IF (FMK) + 1.)7,73,7 
7 CONTINUE 

DO 250 K = 1 , I L 
IF (PN( K) >251 ,250 ,251 

251 RRMRMKI 
GO TC 253 

250 COMINCE 

DO 2 55 1 = 1 , IL 

255 USTARU )=1 
GO TC 256 

253 DO 2 52 1 = 1 , IL 

25 2 UST AR ( I)=0.10472*PSTAR( I ) *RRN 
OUTFIT PROBLEM DATA LOAC. 

256 CALL I NCI T 
RETURN 1 

14 WRITE HOLT, 55 7 ) ID,I,K,L,J 
ST C F 

500 FORMAT (12 , (T3 ,12F6.4) ) 

501 FORMAT (412, 16»F6.4) 

532 F0RMAT(I2,(T5,14F5.4) ) 

533 F0RMAT(I2,(T3,14F5.4) ) 

557 FO FM AT (/ / • ERROR IN INPLT DATA CARD ORDER, SUBROUTINE INPUT. *,2X, 

1 ’I C=* ,13, • I = * , I3,*K=* ,13, *L = * , 13, *J = * , 13) 

1000 FORMAT!//'***** ERROR IN INPUT - *,2A4,' MUST BE GREATER THAN 2 FO 
1R INTER PC LATICN, 1= ',12,' ID= *,I2) 

5021 FORMAT (I2,2X»I2»SF7.4) 

ENC 
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SUEPCUTINE IREF 
C $*$*$*****$*£#$ 

c 

c 

C CCMFLT6 REFERENCE INCIDENCE ANGLE FOR CONST ANT STAGGER CASCADFS 

C BASED CN CAMPER ANGLE, STAGGER ANGLE, MAXIMUM TFICKNESS TO CHORD 

C RATIC, SCLICITV, AND CORRECTION FACTOR FOR THICKNESS DISTRIBUTION. 

C 
C 

CCMMCN/BLCCKA/ALFB(5,2C),ETA2(20) ,3TP1B( 10) ,DEQ(20) ,DEQB(10) ,FHB 
1(5, 2C) ,Fh2(20),F IS2CI20 ) , F I 10GB(8,9) , F I 2DB ( 5 , 20 ) , FK I ( 20 ) ,FK SHAB 
2(5,20 ,HLCE ( 2 C ) , SLP 1GB ( 8 , S ) ,SLP2GB(8»9) , TH AC (20 ) , THACB ( 10) y X (5,20) 
CONMCN/BLCCKB/ ALF 1 (20), A L F 2 ( 2 0 ) ,ALFR0(5,2O) ,ANGST( 5, 20) ,ANGSTB 
1(5, € ) ,CS( 20 , EM 2C) ,EMB (5 ,8 ) ,FKSHA(20 ) ,PPFT1 (20 ),PPFT2( 20) ,Q( 5, 20) 
2tQE(5,2C),RB2(2C),RM5) , SGM A ( 20) , SG M Ae ( 5 , 20 ) , SG MG BB ( 9 ) , THT A ( 20 ) , 
3TMAXC(20),TMXCB(£,20),XP(5,20),YANGSB(8),YANGS(5,20) 
COMMCN/BLCCKC/I,JBASE,JL,JLIM,K,KLIM,KPRI,OR,QRUN,THL 
CO MNCN/BLCCKI / EXPBB(7,7),F(DIF3(7),PPHB(7),STARI(20) 
COMMCN/BLCCKJ/EMEB (8), F 11011(40) ,FI10 12 ( 32) , FK IB( 7), SLP1I 1( 16) , 
1SLP1 12( 16) ,SLP1I2< 16) , SLP1I4( 16) ,SLP1 15 (8) , SLP2 11 ( 16 ),SLP2 12(16), 

2 SLF2I3(16),SLP2I4(16),SLP2I5(8),TMAXCB(7) 

CONMCN/BLCCKL/II ,IC 

OMENS ION F I010G (20) , SLOP 1G( 20) , SL0P2G(2C) , YANG SI (20 ) 

DIMENSION AL Ph Z ( 18) 

DATA ALPHZ/ ' F • , • I ICG • , • 3 ( Y A • , • NGSB’ , • , SGM* , • CBB ) • , • S', 

1 , LP1G'» , B(YA*, 'NGSB*, • , SGM * ,*GBB) • , * S','LP2G', 

2 *B ( YA NGSB SGM' GBB ) •/ 


DO 10 J= 1 , J L I M 
10 YANGS1(J)=YANGSI t> , J ) 

CALI FlT2C(YANGSi,FI01CC, SGMA , YANGSB ,F I 10GB , SGMG8R , 8 , 9 , 
XJLIM,8,9,IWARN) 

GO TO (201,200, IWARN 
20 0 WRITE ( IC, 501 ) (ALPFZJ IZ), IZ=1,6) 

201 CALL F IT20 ( YANGSl ,SL0P1 G»SGMA, YANGSB, SLP1G9, SGMGBB, 3 ,9, 

XJL IM , 8 , 9, IWARN) 

GO TC (203,202 ) , IWARN 
20 2 WRITE(I0,5C1) (ALFHZ(IZ) ,IZ = 7,12) 

203 CALL FIT2C(YANGS1,SL0P2G,SGMA,YANGSB,SLP2GB,SGMGBB,8,9, 

XJL IM ,8,9, I WARN) 

GO TC (205,204) , IWARN 

204 WRITE ( 10, 501) (ALPHZ C IZ) , IZ= 13, 18) 

20 5 DO ICO J= 1 , JL I M 

10 0 STARK J )=FKSHA( J )*FKI ( J ) *F I 0 1 OG ( J ) *■ SLOP 1G ( J ) * TH TA ( J ) *5 7 . 2 9 5 78 
X +SLCP2G ( J ) *THTA ( J ) *ThT A ( J ) *57.29578*57.29578 
DO 6 C J=1»JLIM 

8TP1=57. 29578* AL FI (J)*STARI(J) 

IF (ETP1.LE .75. ) GO TO 60 
WRITE (10, SCO) J , BTP 1 
60 CONT INGE 
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RF TURN 

500 FORMAT ( / ' IREF AT S TR E AML I NE • , I A , • REQUIRED EXTRAPOLATION OF TABL 

1FS BECAUSE BT P 1= • »F7 . 2 » ' CFG'/) 

501 FOFPAT (//' ***** WARNING - FIT2C CALLEC IN IREF - EXTRAPOLATION OF 
1TAELE • » 6 A A ) 

ENC 
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SU8RCL TINE LCSS 
C ** ** ****** ***** 

C 

C 

1(R,VZ,VU,0TAP1,ETAP2,FNC1,U1,U2,FH2,FIS2D,OEGB,THACB,I,K,JLIPI, 
2HL06.DEQ, THAC ) 

01 PENSION ETAP1 (20), eTAP2 (20) , OEQ ( 2 0 J , 0EQ3 ( 10) , 
IFH2(2C),FIS2C(2C),FNC1(2OJ,HLC0(2O),R(5,2O), 

2THAC(2C) » TF AC B ( 1C) , Li 1 ( 20 ) » U 2 ( 20 ) ,VU(5,20) » VZ ( 5 » 20 ) »G(^EGP(20) 

01 PENS ICN XVP1 (2C),XVP2 (20) ,XC( 20) , XOD ( 5, 20), OECD 0(5, 20), THACDD (5, 
120) 

C0PPCN/BLCCK8/ALF1 (20 > , ALF2 (20) ,ALFPB (5,20) , ANGST (5,20), ANGST B 

l(5,8),CS(2C),EPI(20),EME(5,8),FKSHA(20),PPFTi(20),PPFT2<20),C(5,20) 
2,QE(5,2C),RB2(20),RN(5) ,SGMA(20)»SGMAB(5»20),SGPGBB(9),THTA(20)» 
3TMAXC (20) ,TMXCE ( 5,20) ,XF( 5, 20) , YANG SB ( 8) , YANGS( 5, 20) 
CCPPCN/BLCCKF/IL IP , IRUN, IEXLCS15) , I EXOEV ( 5 ) » K2L M( 5) ,L2LM( 5) 

1 »USTAR( 5) » PH I 6 E ( f ,20) , XFB (5 ,20) ,CPEGB8 ( 5 ,20 , 20 > ,0EL2 E ( 5 , 20, 20 ) 
2,PFIEX(20),RSTAR(5),ARFA(5),ARFAC(5) 

C0PPCN/BLCCKG/K2L IM, 12L IP ,YPHI BE (20),YXPR(20), YCMGBB (20 , 20 ) , YDEL2 
1 B ( 20,20),YPFIEF ( 20) , YR ( 20), PHIEFC( 5) 

CCPPCN/BLCCKI / EXFBB(7,7) , F I C I F B ( 7 ) , PPHB ( 7 ) , ST AR I (20) 
CCPPCN/BLCCKJ/EPEE(8) ,F I1CI 1(40) »FI10I2(32) , FK I E( 7 ) , SLP1I1 ( 16), 
lSLPlI2(lfc),SLPlI3(16),SLPlI4(16),SLPlI5(8),SLP2Il(16),SLP2I2(16), 

2 SLP2I 3(16) ,SLP2 14(16) » SLP2 15 (8 ) ,TMAXCP(7) 

CGPPCN/BLCCKK/YDEC9(20) ,YRPB( 7) , YTHACB ( 20, 7 ) ,YXCB(20) ,DEGBB(5,20) 
1, RPBE ( 5, 7 ) , THAC BE (5*2C, 1 ) ,XCBB ( 5 , 20 ) ,HLCP( 20 ) 

CCPPCN/BLCCKL/ I I , IC 

C0PPCN/BLCCKP/KLZ(5) , LL Z ( 5) »YXDEE(20) ,RPBB1 (7) , THC 3B 1(20,7) , 

1RPBB2 ( 7) , T EC BB 2 ( 2C»7), YDECPE( 20) 

DI PENSION ALPH 2 ( 15 ) 

DATA ALPHZ/* Y * , • THAC • , • B ( YX • , • DB , Y • , • PPB ) • , • YT ' , ' H ACB ' , 

1 • (YCE'.'OB.Y', 'RPB)*,* YOM • , *GBB ( * , • YPH I • , • BB , Y* , 

2 'YPE)*/ 

CO 1 1 7= .CC 7 
IF(Llll) )1C,11,1C 

10 C61=-.61 
GO TC 12 

11 C 6 1 = • 6 1 

12 LI NDEX=IE XLCS ( I ) «-5 

GO TC (30,20,30, 20, 50, AC), LINOEX 
30 KK=KLZ ( I ) 

LL = LLZ ( I ) 

C 

C CCMELTE THETA CVfP CFORC RATIO(THAC) FROM D-FACTOR AND BL A OF— 

C ELEPENT LCCAT1CN. 

C 

IF (RN ( I ) ) 32,33,32 

32 KS 1 = 1 

GO TO 34 

33 KS I = — 1 

34 00 31 J=1 » JLI P 

XV P 1 ( J ) =VZ ( I , J ) / (CCS ( BT AP 1 ( J) ) ) 
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XVP2(J)=VZIK,J>/ (C0S(eTAP2( J) ) ) 

3 1 XD ( J ) = 1 .— ( XVP2 ( J ) / X VP 1 ( J ) ) + KSI*(R(K»J)*VU(K f J) — R{ I, J ) *VU ( I , J ) )/ 
1<XVP1(J)*(P(K,J)«R( I * J I )*SGMA(J) ) 

CALL F IT2C ( XC , TH AC , PP FT 2 , YX C B , Y THAC B , YRP 8, KK , L L , J L IM , 20 , 7 , [ WARN ) 

GO TC 161,60) ,IWARN| 

60 WRITE(IC,IC1)(ALPHZ(IZ),IZ=1, 5) 

61 GO 1C 25 

20 KK=KLZ I I ) 

LL = LL Z ( I ) 

COMFLTE OEQ. 

50 DO 21 J=1 , JLIM 
C1 = R ( I,J )/R(K,J) 

C2=CCS( BTAP1 ( J ) ) / V Z C I,J ) 

C3=4./(3.*FH2( J)-l.) 

F I 1PS=57.2S57£*ABS(FNC 1 (J J-STAR II J ) /57 . 29578 ) 

DEC( J)=1.12+CG117*FIIPS**1.43 

OE C f J > - ( (C6l*C2*CCS(BTAPl(J))/SGMA( J) )*(C1*(VU( l, J)-U1( J) ) 

1+U 1 (J)/C1-VU(K,J ) ) + DEC ( J) )*C0S(BTAP2(J) )/CC2*VZ (K,J) ) 

21 COMIME 

I F ( L I NOE X- 5 ) 22,22,22 

CCMFLTE THAC AND FEAO LCSS FRCM DEQ AND eLADE-ELEMENT LOCATION. 

2 2 CALL FIT2C ( CE C , T H AC, PPFT2 , YDE CB , YTHACB,YRPB, KK, LL , JL IM, 20, 7, I WARN) 
GO TC (25,62) , I WARN 

62 WR ITE ( 10, 101 ) (ALFHZ< IZ) , IZ = 6, 10 ) 

25 DO 24 J= 1 , JL I N 

C4= ( VZ ( I » J ) *VZ ( I ,J)/(CCS(BTAP1(J) I *COS ( BTAP1 ( J ) )) ) 

24 HLCE(J)=SCKA(J)*THAC(J ) *C4/ (32. 174*C0S( BTAP2 ( J ) )) 

RETLRN 

CGMFLTE THAC AND FEAC LCSS FRCM OEQ. 

2 3 DO 26 J= 1 * JLI M 

26 XDC ( 1 , J ) = DEC ( J ) 

DO 28 JM,1C 

DE CCC ( 1 » J ) = CEQe(J) 

28 THACDC( 1 ,J)=THACE (J) 

CALL FI TIC ( XDC, THAC, DEQDD ,THACDO , JL I M , 10 , 1 , 1 , I W ARN ) 

GO TC (67,66), IWARN 

66 WR 1 1 E ( 10, ICC) 

67 DO 27 J= 1 » J L I M 

C4=SGMA(J)*ThAC ( J ) *FH2 ( J ) /CCS ( BTAP2(J) ) 

27 HLCB ( J )= (C3*C4*{ ( VZ ( I , J ) /CC S( BT AP2 ( J ) ) ) * ( VZ ( I , J )/CQS ( BT AP2 ( J ) ) ) ) / 
1(( 1.0-C4 ) **3 ) )/6< .348 

RE TLPN 

4C KK=KLZ ( I ) 

LL = LL Z ( I ) 

CCMFLTE LCSS CCEFFI Cl ENT AND HEAD LOSS FROM EFFECTIVE FLOW 
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C COEFFICIENT ANC RACIAL POSITION. 

C 

CALL FIT2C(YPHIEF,QMEGB,YR, YPH I BB , YOMGBB , YXP B , KK, LL , JLIR,20,20, 

1 IHAPN) 

GC TC (65,64) ,IVsARN 

64 WR ITE ( 10, 101) ( ALfFZl IZ> , IZ= 11, 15) 

65 DO 4 1 J=1 , JLI R 

HLCE( J) = CMEGBIJ>* C(VZ( I ,J l/CCSt BTAPK J1 J l**2)/64. 348 
C4 = V Z ( I , J ) * V Z ( I,J ) / ( CCS ( E T A P 1 ( J ) ) *COS( BTAP1 ( J ) ) ) 

41 THAC ( J)=(HLCe< J) <32.174*CCS (BT AP2< J>) )/ (C4*SGMA (J ) ) 

RE TORN 

100 FORR AT (//• ***** EARNING - EXTRAPOLATION OF TABLE THACOD ( OEOOD ) IN 
1FI TIC-CALLED IN LOSS*) 

101 FORMAT (//* ***** EARNING - FIT2D CALLED IN LOSS - EXTRAPOLATION OF 
1TAELE ' , 5 A4 ) 

END 
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SU8PCUTINE HAVE 
*************** 


1( I » J , K,R, VZ,VL,H ,L1 ,U2,GRUN,JLIM, JL , DE LH , DEL HI , RN.IL ) 
CCNMCN/BLCCKL/ 11,10 

DIMENSION CELH I2C I » CELH 1120 )»H( 5 ,20) ,R (5,20) ,REFFP{ 20) , 
IRHRP(2C)»RVEL(20),SEFFP(20),SHRP(20),SDELHI20),TISPD(5),U1(20), 

2U2 (20) * VU ( 5 , 20 ) , V Z ( 5 » 2C ),W(5,20)*PN(5) 

DO 1 J= 1 , J L I M 

1 RVEL(J)=R(K, J)*VZ(K,J) 

OE NCR = 0 

DO 2 J= I , J L 

2 DENCM=CENC M + ( (PVEL(J+1)+RVEL(J) )*(R(K,J+1)-R(K,J) ) )/2,0 
IF (PM I ) ) 3,12,3 

12 IF(IL-l) 13,10,13 

13 IF(FMI-l) ) 7,10,7 

3 DO A J = 1 , J L I N 

RHPF (J)=R(K,J)*VZ(K,J ) * CELH ( J ) 

4 REFFP(J)=RHRP(J)/DELHI (J) 

RHR 1 = 0 

REFF 1 = 0 
DO 5 J=1 , JL 

RHR I = RHR I + ( (RhRP(J+l)*RHRP(J) )*{R(K,J+1)-R(K,J) ))/2.0 

5 REFF I=REFFI+( (REFFP( J+l )+REFFP ( J))*(R(K,J+1)-R(K,J)) )/2.0 
RM AFR = RHR I/CENCM 

RMAE=REFFI/CENCM 

AFLC0=.CCC7C9*QRLN/UR( 1, JL IM ) *R ( I , J LI R )— R ( I , 1 ) *R ( 1 , 1 ) ) *(J1( JL IM ) ) 
AF LC Cl =.CCC7C5*CFLN/((R(K, JLIM) *R(K, JLIM) -R(K,1)*R(K,1))*U2(JLIM) 
RHRCC = 32.174*RMAHR/(l>2( JL IM )*U2( JLIM) ) 

WR ITE ! I C , IOC ) RR f HR, RR A E » AF LCC , AFLCO 1 , R HRCO , I 
T I SPC ( I )=ll( JLIM) 

00 fc J=1,JLIM 

6 w( I , J ) =0E LH I (J) 

GO TC 10 

7 DO 8 J = 1 , JLIM 
SDELHJ)=H(K,J) -MI-1, J) 

SH P P ( J )=R(K, J)*VZ(K, J)*SDELH{ J) 

8 SEFFPl J)=SHRP( J) / Vs ( 1-1 , J) 

SHR 1 = 0 

SEFF 1 = 0 
DO 9 J = 1 , J L 

SHPI=SHRI+((SFPP(J+l)+SHRP{J))*(R(K,J*i)-R(K,J)))/2.0 

9 SEFF I = SEFF I*( ( SEFFP< J*-l HSEFFP ( J ) )*(R(K ,J + 1 >-R ( K, J ) ) )/2.0 
SM AFR = SHP I /CENCR 

SMAE=SEFF I/DFNCM 

SHRCC = 32. 174*SMAFR/ (TISFCl 1-1 ) *T ISPC ( I — 1 1 ) 

WRITE ( IC, 101 )SMAt-R»SMAE»SHRCO» I 
1 0 CONTINUE 
RE TLPN 
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100 FORMAT ( 1HC , 46H PCTOR MASS AVERAGEO HEAD RISE FRCM I TO 1 + 1 - f F10.4 

1,3F FT/52H RCTCP MASS AVERAGED EFFICIENCY BETWEEN I AND 1 + 1 =,F6. 
24,/33H AVERAGE F L C Vs COEFFICIENT AT I =,F6.4/35H AVERAGE FLOW COE 
3FFICIENT AT l + l =,F6.4/38H RCTCR HEAD RISE COEFFICIENT AT I + 1 =, 
4F6 . A / A F I = » 12 ) 

101 FO PM AT ( 1 H C * 4 8 F STAGE MASS AVERAGED HE AC RISE FRCM I-l TO 1+1 =,F10 

1. A,2F P T / 5 A H STAGE MASS AVERAGED EFFICIENCY BFTWEFN I-l AND 1 + 1 = 

2, Ffc.4/50F STAGE HEAD RISE COEFFICIENT (ROTOR IN TIP SPD) =,F6.4/ 

3 A F I = » 12 > 

ENC 
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SUBROUTINE CU T PL T 
***************** 


COKRCN/BLCCKA/AL FE (5 ,20 ), eTA2( 20) ,8TP19( 10) , DEQ (20) , DEQB ( 10) ,FHB 
1(5,20),FF2(2G),FIS2D(20),FI 10GB (8,9),F12DB(5,20),FKI(20),FKSHAB 
2(5 ,2 0 ,HLCB(20),SLP1GB (8,9) , S LP2G8 ( 3 , 9 ) , THAC ( 20 ) , THACR ( 10) ,X(5, 20 
C0RNCN/BLCCKB/ALF1(2C)»ALF2(2C)»ALFPB(5»2Q) .ANGST ( 5 , 20 ) , ANGST B 
1(5»8)»CS(2C),ER(2C),EMB(5»8),FKSFA(20), PPFT 1(20),PPFT2(2C) , C ( 5, 20 
2,QE ( 5 ,20) , PB2 ( 20 ) ,RN (5 ) .SCMAI20 > ,SGN A 6 ( 5 ,20 ) , SGRGBBt 9) , THTA( 20) , 
3TMA>C (2C) , TMXC B ( 5 ,2C) ,XF( 5,20) , VANG SB (8) » YANGS (5,20) 
CORNCN/BLCCKC/ETAPl (20) ,BTAP2 (20 ) ,DELH( 20) , OELH I( 20 ) , DEL2C 20 ) , 
1FNCK2C) ,H(5,20) ,HLCSS( 5,20), R( 5,20) ,U 1(20) ,U2( 20 ) ,VU( 5,20) ,VZ( 5, 
220 > 

CCRNCN/BLCCKC/ I , J B AS E , J L , JL IP , K , KL I M, K PR I , QR, QR UN , THL 
CORRCN/BLCCKF/ILIR, I RUN ,IEXLOS( 5) , IEXDEV(5) » K2L R( 5) , L2L R ( 5 ) 

1, USTAR(5) ,PHIEE (5,20),XFB(5,20) .OMEGBB (5,20,20) ,DEL2B(5,20,20) 

2, PHIEX(20) ,RSTAR (5) .AREA (5) ,ARFAC(5) 

CCRRCN/BLCCKI / E>PBB (7,7) ,FIDIFB(7),PPHB(7),STARI(20) 
CCRNCN/8LCCKK/YC(CB(20) , Y R P E ( 7 ) , YTHACB (20,7) ,YXCR( 20) ,DEQBB( 5,20) 

X.RPBe ( 5, 7 ) , THAC BE (5,2C , 7) , XCBE ( 5,20),HLDP(20) 

CCRRCN/BLCCKL/ I 1 , 10 

DI PENSION PRT (2C ) »XBETA (20 ) ,XBET A2 l 20 ) , XCMEG (20 ), RRT2 ( 20 ) » XEFF( 20 

1, XVP1( 20) , XVP2(2G),XV1( 20 ) , X V2 ( 20) , XH ST T 1 ( 20 > , XFS TT2 ( 20 ) , XPH 1 1 ( 20 

2, XFFI2 (20) ,XPSI(2C),XPS I I ( 20 ) , XC ( 20 ) , Xe T AP 1 ( 20 ) ,XFNC 1 ( 2 0 ) 

3, XETAP2(20) ,XCEL2(20) , X PF T 1 (20 ) , XPFT2 ( 20 ) , X THT A (20) 


CONFUTE EQUIVALENT C-FACTCR AND FEAD LOSS DIFFERENCE. 

CO 1 1 7= .00 7 
IF (Cl( 1) )1C,11,1C 

10 C fc 1 = -. £ I 
GO TC 12 

11 C61=.61 

12 DO 20 J = 1 » JLI M 
C1=R(I,J)/R(K,J) 

C2 = CCS(BTAP1(J) )/V2( I , J ) 

C3 = 4 ./ ( 3 . *FH2 ( J )— 1 . ) 

FI IPS = 57.2 9578*AES (FNC1 ( J )-ST AR I ( J ) / 5 7 . 29578 ) 

DEC( J)=1.12+CC117*FIIPS**1.43 

DEC(J)=((C61*C2*C0S(BTAP1(J) )/SGMA( J ))*(C1*(VU(I,J)-U1(J)) 
1+U1(J)/C1 — VU( K,J ) )+CEC(J) )*COS (BTAP21J) )/(C2*VZ(K,J) ) 

20 CONTINUE 

DO 30 J=1 » JLIR 
IF (HLOSS ( I , J) ) 30,31,30 
3 0 HLCP( J)=(FLCB( J)-hLCSS( I , J ) )/HLCSS( I,J) 

31 CONTINUE 


PREPARE ELACE-ELEMENT RESULTS FOR OUTPUT. 

42 DO 43 J-l.JLIN 

RRT ( J ) =R ( I , J ) / R ( I , JL I M ) 
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RRT2(J)=R(K»J)/R(K,JL(M) 

XPFT1(J)=1CC.*PPFT1(J) 

XPF T2 < J) = ICC. *FPFT2 { J J 
XTHTA(J)=57.2557E*THTA(J) 

XVP1 < J )=VZ (I , J ) / (CCS( BT AP1( J ) ) ) 

XVP2(J)=VZ(K,J)/(CCS(BTAP2(J)>) 

XBETA(J)=57 .29 57 6 *AT AN I Vt ( I ,J)/VZ< I , J)) 
XBETA2{J)=57.25578*ATAN(VL(K,J)/VZ(K,J>) 

XONEG ( J)=64. 3 4 8*FLCSS( I , J )*CCS ( BTAP1 ( J ) )*CGS (RTAP1(J))/(VZ(I,J)* 
1VZ (I,J)1 

XBTAP1(J)=57. 29578* BTAPl(J) 

XFNCH J)= 57.2957 £*FNC1(J) 

XBTAP2(J)-57.25578*8TAP2(J) 

DEL FI ( J )=(U2( J ) *VU( K, J)-U 1( J) *VU( I , J) ) /3 2. 174 
DELM J) 

XVllJ)=(VZ(l, J)*VZII ,J)+VL< I»J) *VU( I , J ) )**0 .5 
XV2 IJ) = (VZ(KfJ ) *V Z ( K , J ) + VU ( K , J ) *VU(K,J))**0.5 
XHST71 (J)=h( I * J I — I (XVI ( J ) *X VI (J ) 1/64.348) 
XFISTT2(J)=H(K»J)-((XV2(J)*XV2(J))/64.348) 

XOEL2( J)=57.29578*CEL2 ( J ) 

IF ( RN ( I ) >44,45,44 

44 XEFF ( J )=DELF { J l/CELHI (J ) 

XPHI1 ( J)=VZ( I » J) /UK JLIM 
XPH121J)=VZ(K,J)/L2(JLIM) 

XPSI(J) =£4.348*CELH(J ) / { U 2 ( J L IM ) *U2 < J L I M > ) 

XPS II (J )=£4.348*CELHI( J )/(U2(JL IM)*U2( JLIM) ) 

XD (J)=l.— (XVP21J l/XVPl ( J) )+(R(K,J)*VU(K,J)-R(I,J)*VU(I, J) ) / ( XVP It J 
1)*(P(K,J)+RU,J) ) * SG PA ( J ) ) 

GO TC 43 

45 XEFF ( J 1=0 
XPF I UJ 1 = 0 
XP F 1 2 ( J ) = C 
XPSI ( J)=0 
XPSII (J)=0 

XD < J > = !.-( XVP2 { J l/XVPI ( J) )- (R(K»J)*VU(KtJ)-R (I »J) *VU C I , J ) ) / ( XVP 1 ( J 
l)*(R(K f J)*RII»JJ ) * SGMA ( J) ) 

43 COMIME 

C OUTPUT BLACE- ELEMENT RESULTS. 

WRITE (IC,514)CRLN 
WRITE ( I C , 525 ) 

WRITE UC.515) 

WRITE (10,515) 

DO 50 K J= 1 , JL IP 
J= JL I M-K J 4- 1 

50 WR ITE( 10, 516) J ,RRT( J) , U1 ( J ) , X V 1 ( J ) , VZ ( I , J) , VU (I , J ) , XVP 1 ( J ) ,H ( I , J ) 

1 ,XHSTT1( J ) , XBETA ( J ) ,XET APH J ) 

WRITE UC.515) 

WRITE ( I C , 5 30 ) 

WRITE (IC.515) 

WRITF (10,519) 
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DO 60 KJ=1,JLIM 

60 WRITE* IC«518) J ,PRT2 ( J) * 02 ( J ) *XV2( J) »VZ(K, J) ,VU( K, J ), XVP2( J ) ,H(K , J ) 

1»XFSTT2(J)*FLCSSII»J)»XBETA2(J)»XBTAP2(J) 


WRITE (IC.535) 
WRITE (IC.540) 
WRITE (10,521) 
DO 70 K J= 1 » JL I M 


70 WR IT C I 10,520) J , PRT I J ) , XP FT 1 ( J ) , XPH 1 1 ( J ) , XFNC 1 ( J) , ST ARI ( J ) , 
1 RRT2 (J) , ANGST (K,J),XThTA(J ) , SGMA I J ) , TM AXCI J ) 

WRITE (10,519) 

WRITE ( I C , 53C ) 

WRITEl 10,522) 

00 EO K J - 1 , JL l M 

80 WRITEl 10,523) J ,FRT2 ( J ) ,XPFT2 ( J ) , XPH 12 ( J ) ,XDEL2 ( J ) 
i ypci T 1 .11 .XEFF C J) , XOMEG ( J ) , XC ( J ) »DEQ ( J ) , THAC ( J) , HLO 




OUTPUT MASS AVERAGED RESULTS. 


CALL MAVE( I , J ,K , R, VZ , VU ,H ,U1 ,U2 , QRUN , JL IM , JL , DE LH , DELHI , RN , IL) 
RETURN 

514 FORM AT (11H1FLCW P AT E= , F 8 . 1 , 4H GPM///1 

ci c rnRM AT I • J R/RCTIP) UfFPS V*FPS VZ»f-Pb 

1 1 VU^FPS V (REL ) , FPS TOT FD,FT STAT HD, FT HO LOSS, FT BETA, DEG 

2 BETAP ,CEG* ) 

516 FORMAT ( 1 3, F 12. 3, IF 12. 2, 12X, 2F 11.2) 

518 FORMAT (I3,F12.3,8F12.2, 2F11 .2 ) 

\\l FOR^TU3°FU.3,Fn.l.Fn.3,2F11.2.F15.3,2F10.Z,F10.3,F10.4) 

SCLIOITY 

522F0RH.T1 • J R/RTUI ,PH F T PHI2 0EV.06G 


EFFIC CMEGABAR C— FACTOR EQ D-FAC (THTA/OA 


1SI PSI I 

52 3 1 FORMAT U3 , FI l .3 , F 11 . 1 . F 1 1 .3 ,F 1 1 .2, 4F 1 1 . 3, 2F 10 . 3 ,2F 10 . 4 ) 

525 FORMAT ( ' ENTRANCE QUANTITIES’/) 

530 FORMAT (' EXIT QUANTITIES*/) 

III ttlH^EMFANCE CCAKT1TIES 21h GEOMETRIC PARAMETERS/ ) 

ENC 
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SUBROUTINE R AC E C C 


1(*,*) 

RACIAL EQUILIBRIUM ANC CONTINUITY ITERATIONS. 

CCNMCN/BLCCKA/ALFB(5,20),eTA2(20>,BTPlB(10),DEQ<20),DEQB(10),FHB 
1(5»2C)»FF2(20)»FIS2C(20 ), FI 10GB ( 8, 9 ) , F I 2DB( 5 , 20 ) , FKI ( 20 ) ,FKSHAB 
2(5 »20> » F LCB (20) , SLP1GP (8,9) , SLP 2 GB ( 3, 9 ) , THAC ( 20 )» THACB( 10) , X( 5, 20) 
CQMMCN/BLCCKE/ALFl(20)»ALF2(20) ,ALFP0(5»2O) , ANGST (5,20) , ANGST B 

1 (5 ,8 ),CS( 20, EM ( 20) , EMB(5,8 ) , FK SHA ( 20 ) , PPFT 1 ( 20 ) , PPF T2 ( 20) »C( 5,20) 
2,QE(5,2C),RB2(20),RN(5),SCMA(20),SGMAe(5,20) ,SGKGEB(9), THTA( 20 , 
3TMAXC ( 20 , TMXCE ( 5,20),XF(5,20) , YANG SB (8) ,YANGS( 5,20) 

CCMMCN/BLCCKC/BT API ( 20 ) , BT AP2 ( 20 ) , OELH ( 20) , OELH I( 20) ,0EL2( 20) , 
l^NCl (20 ,H ( 5,20) ,HLOSS( 5,20 ) , R ( 5 ,20 ) , U 1 ( 20 ) , U2 ( 20 > , VU ( 5 , 20 ) , VZ( 5, 

220 > 

COMMCN/BLCCKD/I , J E AS E , J L , JL IM , K , KLI M , KPR I , OR, QRUN, THL 
COMKCN/BLOCKF/IL IK, I RUN , I EX LOS ( 5 ) , IEXDEV(5) ,K2LK( 5) ,L2LM(5) 

1, USTAR(5 ) » PHI 8 B ( 5, 20 ) , X FB ( 5 , 20 ) , OME GB B ( 5,20, 20) ,DEL2B( 5, 20,20) 

2, PHIEX(20,RSTAR(5),AREA(5) , ARE AC (5) 

COKKCN/BLOCKG/K2LIM, L2L I M , Y PH I BE ( 20) , YXPBC20 ) , YCMGBB (20 ,20) , YDE L2 

1B( 20,20) »YPHIEF( 20) ,YR(20), PHIEFC(5) 

COMKCN/BLCCK J/EKEe( 8) , F 1 1C I 1 ( 40 ) , FI 10 12 ( 32 ) , FK I E( 7 ) , SLP 1 1 1 ( 16 ) , 

1 SL P 1 1 2 ( 16 ), SIP1I2(16),SLP 114(16), SLP1I5(8),SLP2I1( 16 ),SLP2 12(16), 

2 S LP2 1 3(16) ,SLP2I4(16) ,SLP2I5 (8 ) ,TMAXCB (7) 

CCMKGN/BLGCKL/I I ,10 

01 PENSION AL P H 2 ( 10 ) 

DATA ALPH Z / ' A • , • LF PB • , • ( XP ) • , • FK ' , • SHAB • , • (XP ) • , « S', 

1 'GMAB*, •( XP) «, 'R(Q) • / 

DETERMINE eL A OE- E LEME NT GEOMETRY PARAMETERS, WHEEL SPEED AND RELATIVE 
LEAVING FLOW ANGLES. 

DO 33 KKK=1 , 1 C 

CALL FIT1C(R,ALF2,XP,ALFPB, JL I M ,KL I M , I , K , I WARN ) 

GO TC (401,400) , IWARN 

400 WRITE ( I0,7CC) (ALFHZ(IZ) ,IZ=1,3) 

401 CALL FIT1C (R,FKSFA,XP, FKSHAB, JLIM, KLIM, I, K, IWARN) 

GO TC (403,402 ), IWARN 

402 WR ITE ( 10, 7CC) ( ALFHZ( IZ) ,1 Z = 4,6) 

403 CALL FITlC(R,SCMA,XP,SGKAe, JLIM, KLIM, l, K, IWARN) 

GO TC (405,404) , IWARN 

404 WRITEl I0,7CC) (ALFHZ(IZ) »IZ=7»9) 

405 DO 43 J=1 » JL I M 

U2(J )=. 1C472*RN( I ) *R ( K , J ) 

ANGST (K, J)=C.5*57. 29578 *ALF 1( J ) + . 5*ALF 2 1 J ) 

YANGS(K,J)=ABS(ANGST(K.J)) 

43 ALF2< J >=.017453*ALF2(J) 

IF ( IEXLCS ( I ) 145,45,47 
45 IF( IEXDEV< I) )44,44,47 
47 DO 4fc J= 1 • JL I M 
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YPHIEF(J)=PHI EFC (II 
46 YR (J)=R(K,J) 

CGRFLTE CEVIATICN ANGLES 

44 CALL CEV 


DO 20 J=1,JLIM 
IF (ALF1IJ) 1201 ,2C2, 200 

200 BTAP2(J)=ALF2(J)+DEL2(J) 

GO TC 20 

201 BTAP2( J)=ALF2( J)-0EL2( J) 

GO TC 20 

202 WR ITE (10,511 ) 

RETURN 1 

20 CGNT INUE 

DETERMINE LEAVING WHIRL VELOCITY, TOTAL HEAD ANC AXIAL VELOCITY 
SATISFYING RACIAL EQUILIBRIUM. 

DO 2‘ 5 KR = 1 , 20 
KNT= 1 
KNTT=0 
3C0 J= JB A SE 

301 VU ( K , J I =U 2 (J)-VZ (K,J )*S IN ( BTAP 2 ( J I) /COS ( BTAP 2( J ) I 

H(K,J)=H(I,J)+.03106*(L2(J) *VU ( K , J I -CS ( J I l-HLOS S ( I, J I 
IF(KNT-l) 1C1,1CC,101 
10 1 KJ = J— 1 

GO TO 102 
100 K J = J + 1 

102 S= (R (K,K J I - R ( K, J I l/R (K, KJ ) 

E=S*R(K,KJ)/RIK, J)-l. 

0=S-1. 

C=-(VZ(K, J)*VZ(K,J) )— 64 .348* ( H ( I,KJ)-HLOSS( I,KJ)-H(K,JI) 

1 + 2 .*CS (K J ) + D*U 2 ( KJ ) *U2 ( KJ ) +E* VU ( K,J )*VU(K»JI 
8=SIN(BTAF2(KJ))/C0S(BTAP2(KJ) ) 

A= l.+ (S+l. ) B 
B= -2 . *U2< K J ) *S*B 
RAC=P*8-4.*A*C 
IF (RADI25 ,2 1, 21 
25 WR ITE ( 10,512 I 
KNTT^l 

IF ( K NT— 1 ) 103,104,103 

103 RETURN 2 
10 4 K N T = 2 

GO TC 300 

21 VZ(K,KJ)=(-8+SCRT(RAC) I / ( 2 • *A ) 

IF(KNT-l) 106 ,105, 1C6 

106 I F ( J-2 ) 112,112,111 

111 J=J-1 
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GU TC 301 
112 K J = 1 

GO TO 106 

105 IF(J-JL) 6C0 » 1 C 7 , 10 7 
60 C J=J+1 

GG TC 301 
107 K J ■= JL I M 

10 8 VU(K,KJ) = L2(KJ)-VZ(K,KJ)*SIMBTAP2(KJ)) /COS ( BTAP2 ( KJ ) ) 

H( K f K J ) = M I « K J ) ♦ .C3106* (U2 ( K J J *VU(K,K J )-CS(K J ) )-HLOSS( I .KJ ) 
IF(KM-l) 1 10 , 1 C S ,1 1 C 

109 KN T= 2 

GO TC 300 

110 IF (KNTT.GT.O) GC TO 103 

COMPOTE STREAM FINCT ION DISTRIBUTION FOR LEAVING FLOW AND REVISE 
RASE STREAMLINE VELOCITY. 


0 ( K f 1 ) =0 . 

DO 28 «j = 1 , J L 

28 Q(K,J + l)=C(K,J)«-CR*(VZ(l<,J+i)*VZ(K,J))*<R(K,J+l >*R(K, J+l ) 

1 — R ( l< | J ) ♦ R ( K t J ) ) 

IF ( ABS (CI K , JLIM J-l. I-.0C5 >3 0,29, 29 

29 VZ !K» JEASE ) = VZ( K »JBASE ) *QB( 1»JLIM)/Q(K,JLIM) 

WRITE! 10,515) 


REVISE LEAVING FLCw STREAMLINE RADII 
D I STR I BUT ICN. 


BASED ON STREAM FUNCTION 


3C CALL FIT1D (C8,RR2,3,R,JL , JL I M , K , 1 , I WARN) 

GO TC ( 407 , 4Cfc ) , IWARN 

406 WR ITE! 10, 7C0) ALFHZ(IO) 

407 CO 31 J=2 , JL 

IFCABS(RB2(J)-R(K,J))-.01*R(K,J))3I # 31,32 

31 CONTINUE 
RETLPN 

32 DO 33 J=2 , JL 
R( K » J ) =RB 2 ( J ) 

33 CONTINUE 


WR I T E t IC,514) 
RE TURN 


511 FORMAT (21F1ALF1 = 0 NOT ALLOWED) 

512 FORMAT(1H1////35FORACIAL EQUILIBRIUM SOLUTION FAILED) 

S0I - UTI0N ‘NO STREAMLINE RAOIAL ADJU 
1ST>EMS NCT ACHIEVED IN 10 ITERATIGNS 1 ) 

5l5 ie««"lIsM' ,R4!:IAl ECUUIeR,U " * T CCNTINUITY NOT ACHIEVEO IN 20 IT 

70C lF 0 mLE / S3A*** k '" >N " <G ‘ F,U0 C ‘ LLEC ,N R4CE « - EXTRAPOLATION 0 
END 
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APPENDIX E SAMPLE INPUT LOAD AND PROGRAM OUTPUT LISTS 
Sample Input Load 1. 


10 

32010 82C .01 



19 

1 .375 



19 — 

1-1 



18 

2 .375 



19 




30 

1 



31 

7 



32 

1 1 .1500 4 S . 5 C 

. 1500 

- 1 C . 7 

32 

1 2 . 1725 55.60 

. 1725 

11.10 

32 

1 3 .2175 62.50 

.2175 

38.60 

32 

1 4 .2625 66.40 

. 2625 

52.40 

32 

1 5 . 3075 69.40 

.3075 

60.30 

32 

1 6 . 3525 71 . 8 C 

. 3525 

6 5.40 

32 

1 7 .3750 72.80 

.2750 

67.50 

30 

2 



31 

7 



32 

2 1 . 15 C 0 - 51.44 

. 150 C 

10.76 

32 

2 2 . 1725 — 4 * 3 .00 

. 1725 

1 C . 60 

32 

2 3 .2175 - 44.30 

.2175 

1 C . 50 

32 

2 4 . 2625 - 4 C . 2 C 

. 2625 

1 1.20 

32 

2 5 . 3 C 7 5 - 36.40 

.3075 

11.60 

32 

2 6 .3525 - 33.10 

. 2525 

12.20 

32 

2 7 .3750 - 31.65 

.2750 

12.47 

50 

3910 . 



50 

0 . 



70 

51 . 78 



80 

.01 



81 

9 



82 

.1500 53.3 

115.2 

.1625 

82 

.2165 53.7 

115.2 

.2625 

82 

.3540 50.2 

115.2 

.3625 

83 

0.967 C .567 



80 

.02 



81 

9 



82 

.1500 44.6 

115.2 

.1625 

82 

.2165 45.4 

115.2 

. 2625 

82 

. 3540 43.1 

115.2 

.3625 

83 

C . 97 C . 5 7 



80 





2 . 52 

. 100 

0 . 

1. 08 

2 . 19 

.097 

0 . 

1. 08 

1.74 

.091 

0 . 

1.08 

1 . 44 

• C £5 

0 . 

1.08 

1.23 

.079 

0 . 

1 . 08 

1 . C 7 

.073 

0 . 

1.08 

1.00 

.070 

0 . 

1 . 08 


2.34 

.08 

0 . 

1. 08 

2.09 

.08 

0 . 

1 . 08 

1.65 

.08 

0 . 

1.08 

1.36 

.08 

0 . 

1.08 

1.16 

. G 8 

0 . 

1 . 08 

1.01 

.08 

0 . 

1.08 

0.96 

.08 

0 . 

1.08 


53.3 

115.2 .1710 

54.2 

53 . 1 

115.2 .3085 

51.8 

48.0 

115.2 .3150 

48.0 


44.6 

115.2 

. 1 710 

45.4 

46 . 2 

115.2 

.3085 

45. 0 

4 C .8 

115.2 

.3 150 

40.8 


.7 
.7 
.7 
.7 
.7 
.7 
. 7 


.7 

.7 

.7 

.7 

.7 

.7 

.7 


1H 
115 
11 5 


115 

115 

115 
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Sample Output 1 


AXlAL-FLOh PUMP PERFORMANCE PREDICTION INPUT 


IRUN* 820 


JBASE- 10 


JLIN* 20 


REFERENCE TABLE INCIDENCE ANGLE BLADE THICKNESS CORRECTION 


YTPACB* 

YFKIB* 


0.0 

0.0 


0.02 

0.33 


0.04 

0.59 


0.06 

0.77 


0.08 

0.90 


0.10 

1.00 


0.12 

1.08 


REFERENCE TABLE ZERO— C AM8E R I NCI DENCE ANGLE ANC CAMBER COEFF,CIENTS I F 1 10GB > SLP IGB » SLP2G9 I 


YANGSB 


0.0 

10.00 

20.00 

30.00 

40.00 
50. CC 

60.00 

70.00 

0.0 

10.00 
20.00 

30.00 

40.00 

50.00 

60.00 

70.00 

0.0 

10.00 
20.00 

30.00 

40.00 

50.00 

60.00 
70.00 


BLADE ROW DATA 


SGMGBB 


0.4 

0.6 

o 

• 

05 

1.0 

1.2 

1.4 

1.6 

2.0 

0.042 

0.413 

0.738 

1.043 

1.360 

1.662 

1.864 

2.042 

0.012 

0.554 

1.085 

1.571 

2.050 

2.485 

2.834 

3.099 

0.003 

0.721 

1.405 

2.105 

2.759 

3.386 

3.835 

4.145 

-0.041 

0.853 

1.735 

2.636 

3.488 

4.283 

4.919 

5.276 

-0.074 

1.072 

2.146 

3.136 

4.219 

5.215 

5.955 

6.377 

-0.097 

1.203 

2.476 

3.751 

5.029 

6.214 

7.016 

7.390 

-0.124 

1.387 

2.844 

4.346 

5.827 

7.255 

8.100 

8.517 

-0.132 
1.764 
3.663 
5.606 
7. 591 
9.398 
10.200 
10.850 

-0.043 

-0.088 

-0.138 

-0.191 

-0.250 

-0.322 

-0.393 

-0.484 

-0.022 

-0.058 

-0.100 

-0.148 

-0.206 

-0.273 

-0.352 

-0.458 

-0.004 

-0.032 

-0.067 

-0.114 

-0.167 

-0.235 

-0.318 

-0.448 

0.016 

-0.008 

-0.038 

-0.079 

-0.131 

-0.201 

-0.291 

-0.433 

0.041 

0.019 

-0.013 

-0.044 

-0.096 

-0.174 

-0.268 

-0.408 

0.060 

0.047 

0.025 

-0.010 

-0.066 

-0.150 

-0.249 

-0.376 

C. 082 
0.073 
0.055 
0.019 
-0.040 
-0.134 
-0.236 
-0.357 

0.116 

0.124 

0.113 

0.079 

0.003 

-0.108 

-0.195 

-0.297 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-o.oci 

-0.000 

-0.001 

-0.001 

-o.oci 

-0.001 

-0.001 

-0.001 

-0.001 

-0.000 

-0.001 
-0. 00 1 
-o.ooi 
-0.001 
-o.ooi 
-0.001 
-0.001 
-0.000 

-0.001 

-0.001 

-0.001 

-o.ooi 

-0.002 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.002 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.001 

-0.001 

-o.ooi 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 


>0 

2 

4 

7 

10 

12 

13 

14 

0 

0 , 

0 

0, 

0 . 

— 0, 
- 0 , 
- 0 , 

• 0 . 
- 0 . 
-0. 
- 0 . 
-o. 
-o. 
-c. 
— 0. 


I- 1 


RN* 3910.0 RPN 


2 EXDE V»— 1 


RSTAR* 0.37500 FT 

REFERENCE TABLES FOR BLAOE RON GEOMETRY AND GEOMETRY-DEPENOENT LOSS DATA 
J * AIF0 


XP 


ALFPB 


SGHAB 


TMXCB 


FI2DB 


FHB 


IEXLOS*-! 


FKSHAB 


2.6 

• 186 
.305 
. 94 ** 
.694 
.460 
.540 
.550 
.500 

.163 
. 189 
.193 
.148 
.047 
.072 

► 15 7 

► 247 

.001 

.002 

002 

003 

003 

002 

002 

003 
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o 

o 

o 


o O \f\ o o o o 

f* m K N- •+ 4 4 

4 4 1*1 O *"• "4 ** 

o o o o o o o 

• •*•••• 

o o o o o o o 


QOONOKMA 

4 m 4 fM 4 «*> « 
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• •••••« 
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a* ooooooo 
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0000«M?O 
fs4 pH CO <*> p* f*> ® 
(M.4 O O' • 

pH pH -H 1-4 pH O o 


o o o o pH in m in o 

o 0044000 o 

o m^NOOHH o 

00 OOOOOOO • 

• • •••••• • 

P< OOOOOOO I V 


OOO^OKMC 
B ® ® O O K N 
OONrtNNN 
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IN f\| pH pH pH pH pH 


ooooooo 
ooooooo 
oo o o o p o 

J ift 
• ••*••• 
Of4C0 NO IT N 
hi-i n irto 4 b 


ouMiMninB o 
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□ IMN OJMM n 
mN^ 40 lAN 
«hh <M O) W W 
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OOOOOOO 


•4NK1«m«N 


CD 

a. 

X 


u 

a 

X 


o 

X 


u 

I 


o 

z 


> 

Hi 

o 


U CD 


ooooooo 

a> 4 eg ph n* m o 

NNNHQ^^ 

h h h h ^ o a 


O OOOOOIMO 
t OMflBWN N 
4 N^^OO 

,4 H ^ M H o O 


0 0 0 0 0 4-0 

4 4 4 O' 
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pH pH pH pH pH O o 
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o ao to m *n — * oo 

OOOOOOO' 

pH pH pH pH pH -H O 
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flO Q 
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o 
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NN 4 4 NWQ 0 
NNHOOOO 

ooooooo 
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ooooooo 
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® ®obnnk o 

pH pH pH O o O O O 

ooooooo m 


OOBfOOO 
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Nr* ® OHNN 

ooooooo 

• •••II* 
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• OO O O' 4 pH *H 
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o o m 4 o o o 
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R 

> 
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o oooominm 

O ® ® O ® ® 4 B 
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4- OOOOOOO 

• I I I I I I • 
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O OOOOOOO 

o 4 4 O 4 4 4 4 
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4 4 O 4 'O 4 4 
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O 
o 
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I • I • I 1 I 
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OOOOOOO 
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o 
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X 

a. 


i 

ac 


o 

ac 
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REFERENCE TABLES FOR BLADE ROM GEOMETRY ANO GEOMETRY-OEPENOENT LOSS OATA 



J 

X 

ALFB 

XP 

1 

0.1500 

-51.4400 

0.1500 

2 

0.1725 

-49.0000 

0.1725 

3 

0.2175 

-44.300C 

0.2175 

4 

0.2625 

-40.2000 

0.2625 

5 

0.3075 

—36.400 C 

0.3075 

6 

0.3525 

-33.1000 

0.3525 

7 

0.3750 

-31.6900 

0.3750 


ALFPB 

SGMAB 

TNXCB 

10.7600 

2.3400 

0.0800 

10.6000 

2.0900 

0.0800 

10.9000 

1.6500 

0.0800 

11.2000 

1.3600 

0.0800 

11.6000 

1.1600 

0.0800 

12.2000 

1.0100 

0.0800 

12.4700 

0.9600 

0.0800 


FI20B 

FHB 

FKSHAB 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0. 7000 


REFERENCE TABLE DEVIATION ANGLE-SLOPE FACTORI EMB) 


VANGSB- 

EM9- 


0.0 10.00 20.00 30.00 

0.22 0.23 0 .2* 0.27 


40.00 50.00 60.00 

0.29 0.33 0.37 


70.00 

0.42 


REFERENCE TABLE LGSSITHACB) 


OEQB* 

1.30 

1.40 

1.50 

1.60 

1.70 

1. 80 

1.90 

2.00 

2.10 

2.20 

THACB* 

0.00 

0.01 

0.01 

0.01 

0.01 

0.01 

0.01 

0.02 

0.02 

0.02 
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820.01 


inlet conditions 

PHI RUN NO. 

R VZ VU H 

0.1500 53.3000 0.0 115.2000 

0.1625 53.3000 0.0 115.2000 

0.1710 54.2000 0.0 115.2000 

0.2165 53.7000 0.0 115.2000 

0.2625 53.1000 0.0 115.2000 

0.3085 51.8000 0.0 115.2000 

0.3540 50.2000 0.0 115.2000 

0.3625 48.0000 0.0 115.2000 

0.3750 48.0000 0.0 115.2000 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F IIOGBIV ANGSB, SGN6B8 I 

MM w*rmnG - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SL PIGBI YANGSB, SGMGBB I 

•••* WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB, SGHGBB » 

.... WARNING - EXTRAPOLATION CF TABLE EHBI ANGSTS I IN FIT1D-CALLED IN OEV 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F I 10GBI YANGSB, SGHGBB ) 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLPIGBI YANGSB, SGHGBB I 

**** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBIYANGSB, SGHGBB) 

.... WARNING - EXTRAPOLATION OF TABLE EHBI ANGSTB I IN FI Tltt-CALLEO IN OEV 
***• WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F I IOGBI YANGSB, SGHGBB 1 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SL PIGBI YANGSB, SGHGBB . 

•**. WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB , SGHGBB I 

..** WARNING - EXTRAPOLATION CF TABLE EHBI ANGSTB I IN FIT1D-CALLED IN OEV 
.**. WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F I IOGBI YANGSB. SGHGBB. 

.... WARNING - FIT2C CALLEO IN IREF - EXTRAPOLATION OF TABLE SLPIGBI YANGSB. SGHGBB. 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB , SGHGBB » 

*».* WARNING - EXTRAPOLATION CF TABLE EHBI ANGSTB . IN FI TIO-CALLEO IN OEV 
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•*.* WARNING - FIT20 CALLED IN IREF - EXTRAPOLATION OF TABLE F 1 10GB ( YANGS8 1 SGMGBB ) 

•*** WARNING - FIT20 CALLEC IN IREF - EXTRAPOLATION OF TABLE SLP IGBI YANGSB , SGHGBB 1 

**** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB, SGMGBB ) 

**** bARMNG - EXTRAPOLATION OF TABLE EMB( ANGSTS > IN FI T1D-CALLED IN DEV 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F I XOGBI YANGSB, SGHGBB ) 

WARNING - FIT2C CALLED IN IREF - EXTRAPOLATION OF TABLE SLP1GBI YANGSB , SGNGBB » 

*••• WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB, SGMGBB I 

WARNING - EXTRAPOLATION OF TABLE EMB ( ANGSTB I IN FI Tlt>— CALLED IN OEV 
**•* WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE F IIOGBI YANGSB, SGMGBB I 

•*** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLPIGei YANGSB, SGMGBB I 

WARNING - FIT20 CALLED IN IREF - EXTRAPOLATION OF TABLE SLP2GBIYANGSB, SGMGBB I 

WARNING - EXTRAPOLATION CF TABLE EMBI ANGSTB I IN FITIO-CALLEO IN OEV 


-O^M>p 4 Nm(nmN^ 7 >^niTlNOl/\NO 

• .••••«••••*•*•••••# 


0Bp4ooiAiAin9N<noNaiAo^flir<r« 

N<#<ffN(MOOmNNN^NO 9 <O 0 »MA 
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ENTRANCE QUANTITIES 
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STAGE HASS AVERAGED HEAD RISE FROM 1-1 TO l*\ ~ 77.8024 FT 

STAGE mass AVERAGEC EFFICIENCY BETWEEN 1-1 ANC Ul *0.8243 
STAGE HEAC RISE COEFFICIENT IRCTCR IN TIP SPCI =0.1062 


INLET CONDITIONS 

PFIRUN NO. 

R VZ 

0.15QC 44.6000 

0.1625 44.6000 

0 . 17 1 C 45.4C00 
0.2165 45.4C00 

0.2625 46.2C00 

0.3085 45.0000 

0.3540 43.1000 

0.3625 40.8000 

0.3750 4C.8000 


820.02 

VU H 

0.0 1 15. 2000 

0.0 115. 2000 

0.0 115.2000 

0.0 115.2000 

0.0 115.2000 

0.0 115.2000 

0.0 115.2000 

0.0 115.2000 

0.0 115.2000 


4444 

WARNING - 

FIT20 

CALLEO 

IN 

IREF - 

EXTRAPOLAT ION 

OF 

TABLE 

F 1 10GB I YANGSB t SGMGBB > 

4444 

WARNING - 

FIT2C 

CALLEO 

IN 

IREF - 

EXTRAPOLATION 

OF 

TABLE 

SLPIGBI YANGSB, SGMGBB) 

4444 

WARNING - 

FIT2C 

CALLED 

IN 

IREF - 

EXTRAPOLATION 

OF 

TABLE 

SLP2GB(YANGSBt SGMGBB) 


WARNING - EXTRAPOLATION OF TABLE ENBIANGSTB) IN FITIO-CALLEO IN DEV 
WARNING - FIT20 CALLED IN IREF - EXTRAPOLATION OF TABLE FUOGBIVANGSB, SGMGBB I 

**** WARNING - F I T20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLPIGBI YANGSB, SGNGBB I 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBIV ANGS8, SGNGBB I 

»•** WARNING - EXTRAPOLATION OF TABLE ENBI ANGSTS I IN FITIO-CALLEO IN OEV 
**♦* WARNING - FIT2D CALLEO IN IREF - EXTRAPOLATION OF TABLE F I10GBI YANGSB, SGNGBB I 
WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLPIGBI YANGSB, SGNGBB I 

WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB, SGNGBB I 

WARNING - EXTRAPOLATION OF TABLE ENBIANGSTB) IN FITIO-CALLEO IN OEV 
**•* WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE FUOGBIVANGSB, SGNGBB I 

**** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP1GBIYANGSB, SGNGBB I 

•*** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2GBI YANGSB , SGNGBB) 

•••• WARNING - EXTRAPOLATION CF TABLE ENBl ANGSTB ) IN FITIO-CALLEO IN OEV 
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EARNING - FIT20 CALLED IN IREF - EXTRAPOLAT ICN OF TABLE 


F 1 10GB( YANGSB* SGNGBB ) 


EARNING - FIT2D CALLED IN IREF - EXTRAPOLATION OF TABLE SLP1G8I VANGSB, SGNGBB ) 

**** WARNING - FIT20 CALLED IN IREF - EXTRAPOLATION OF TABLE SL P2GBI YANGSB t SGNGBB I 

**** NARKING - EXTRAPOLATION CF TABLE EN8( ANGSTB ) IN FITID-CALLEO IN DEV 
**** WARNING - F1T20 CALLEO IK IREF - EXTRAPOLATION OF TABLE F I IOGBI YANG SB , SGNGBB > 

WARNING - FIT2D CALLED IN IREF - EXTRAPOLATION OF TABLE SL P1GBI YANGSB » SGNGBB ) 

**** WARNING - FIT20 CALLEO IN IREF - EXTRAPOLATION OF TABLE SLP2G0C YANGSB* SGNGBB) 

**** WARNING - EXTRAPOLATION CF TABLE EHB( ANGST B ) IN FITID-CALLEO IN DEV 
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ENTRANCE Ct ANTI TIES 
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•*** 

MARKING - EXTRAPOLATION 

OF 

TABLE 

THACOOI CEQOD) 

IN 

FI TIO-CALLEO 

IN 

LOSS 


MARKING - EXTRAPOLATION 

OF 

TABLE 

THACOO ( OEQOOI 

IN 

FITIO-CALLEO 

IN 

LOSS 

•*** 

NARKING - EXTRAPOLATION 

OF 

table 

THACOOI OEQOOI 

IN 

FITIO-CALLEO 

IN 

LOSS 

•*** 

MANNING - EXTRAPOLATION 

OF 
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**** 
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GEOMETRIC PARAMETERS 
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STAGE HASS AVERAGEO HEAD RISE FROH 1-1 TO I+l * 113*4721 FT 

STAGE HASS AVERAGEO EFFICIENCY BETWEEN 1-1 ANO !♦! »0*8*75 
STAGE HEAD RISE COEFFICIENT IROTOR IN TIP SPO) -C* 1549 



Sample Input Load 2. 


10 22010 1000 .01 

18 1 .375 

19 1 1 

20 9 9 

21 .260 .284 .290 .302 .324 .352 .381 .405 .420 

22 2625 2729 2850 2979 3188 3396 3500 3646 3750 
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32 
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1 8 .3600 

70.30 

32 

1 9 .3700 
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50 
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4.85 
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7.68 

6.53 

4.60 
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5 . 95 

8.23 

8.11 

7.21 
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7.65 

7.55 

6.46 

6.12 

6.45 

6.53 

5.88 

5.60 

6 . 17 

5.98 

5.43 

5 . 36 

5.75 

5.28 

4.90 

4.92 

5.50 

4.80 

4.50 

4.70 

.262 

! 5 38 

.40 

1.44 


.2700 40.30 1.40 

.2800 42.70 1.35 

.2900 45.10 1.30 

.3000 47.20 1.26 

.3200 51.00 1.18 

.3400 55.20 1 . 11 

.3600 60.20 1.05 

.3700 63.70 1.02 

.3750 67.10 1.01 


188.36 .2729 59.81 
188.46 .3396 58.93 
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201 262 
160 214 

089 118 

090 105 

103 164 

090 117 

096 116 

104 116 

0.0 0.0 
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0.50 

4 . 10 
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82 
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80 
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Sample Output 2 


AXIAL-FLCW PUMP PERFORMANCE PREDICTION INPUT 


IRUN-1000 JBASE* 10 JLIM- 20 


REFERENCE TABLF INCIDENCE ANGLE 8LA0E THICKNESS CORRECTION 


VTMACfl= 0.0 

Y F K 18* 0.0 


0.02 

0*33 


0*04 

0.59 


0.06 

0*77 


0.08 

0.90 


0. 10 

1.00 


0.12 

1.08 


REFERENCE TA8LE ZERO CAMBER INCIDENCE ANGLE AND CAMBER COEFFICIENTS ( F ! 1 OGB , SL P1GB , SL P2GB ) 


YANGS8 


0.0 

0.4 

0.042 

10.00 

0. 413 

20.00 

0. 738 

30.00 

1.043 

40.00 

l. 360 

50.00 

1.662 

60.00 

l , 864 

70.00 

2.042 

0.0 

-0. 043 

10.00 

-0.088 

20.00 

-0.138 

30.00 

-0. 191 

40.00 

-0.250 

50.00 

-0.322 

60.00 

-0. 393 

70.00 

-0.484 

0.0 

-o.ooi 

10.00 

-0.001 

20.00 

-0.001 

30.00 

-0.001 

40.00 

-0.001 

50.00 

-0.001 

60.00 

-0.001 

70.00 

-0.000 


0.6 

o 

. 

CD 

0.012 

0.003 

0.554 

0.721 

1.085 

1.405 

1.571 

2. 105 

2.050 

2.759 

2.485 

3.386 

2.834 

3.835 

3.099 

4. 145 

-0.022 

-0.004 

-0.058 

-0.032 

-0.100 

-0.067 

-0.148 

-0.114 

-0.206 

-0. 167 

-0.273 

-0.235 

-0.352 

-0.318 

-0.458 

-0.448 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0. 001 

-0.001 

-0.001 

-0.000 

-0.000 


SGMGBB 


1*0 

1.2 

-0.041 

-0.074 

0.853 

1.072 

1.735 

2.146 

2.636 

3.136 

3.48B 

4.219 

4.283 

5.215 

4.919 

5.955 

5.276 

6.377 

0.016 

0.041 

-0.008 

0.019 

-0.038 

-0.013 

-0.079 

-0.044 

-0.131 

-0.096 

-0.201 

-0.174 

-0.291 

-0.268 

-0.433 

-0.408 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.001 

-0.002 

-0.001 

-0.002 

-0.001 

-0.001 


1.4 

1.6 

-0.097 

-0.124 

1.203 

1.387 

2.476 

2.844 

3.751 

4. 346 

5.029 

5.827 

6.214 

7.255 

7.016 

8. 100 

7.390 

8.517 

0.060 

0.082 

0.047 

0.073 

0.025 

0.055 

-0.010 

0.019 

-0.066 

-0.040 

-0.150 

-0. 134 

-0.249 

-0.236 

-0.376 

-0.357 

-0.001 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.001 

-0.001 


2.0 

2.6 

-0.132 

-0.186 

1.764 

2.303 

3.663 

4.944 

5.606 

7.694 

7.591 

10.460 

9.398 

12.540 

10.200 

13.550 

10.850 

14. 500 

0.116 

0. 163 

0.124 

0.189 

0.113 

0.193 

0.079 

0. 148 

0.003 

0.047 

-0. 108 

-0.072 

-0.195 

-0.157 

-0.297 

-0.247 

-0.001 

-0.001 

-0.001 

-0.002 

-0.002 

-0.002 

-0.002 

-0.003 

-0.002 

-0.003 

-0.002 

-0.002 

-0.002 

-0.002 

-0.002 

-0.003 


BLADE ROW DATA 


I* 1 


RN~ 3620.0 RPM 


RSTAR- 0.37500 FT 


IEXDEV* t 


I EXLOS* 1 


reference tables for blade row geometry and geometry-dependent loss data 


J 


X 


alfb xp 


ALFPB SGMA8 TMXCB FI2D0 


FHB 


FKSHAB 


161 


OOOOOOOOOO 

oooooooooo 

OOOOOOOOOO 

oooooooooo 


o o oooooooo 
oo oooooooo 
cDcooocccooo®ooooro 
oooooooooo 



oooooooooo 

# I «•••*«* * 

oooooooooo 


o o 

in <4- 

CD 00 

oo 

• • 

o o 


^>fr,Ofn« 00<00 

NHOf fc 'tNOO 

OflOCD^NN^^- 

oooooooo 

• *•«•••• 

oooooooo 


oo oooooooo 
oo oooooooo 

44(^(«(MHHOOO 


OOOOOOOOO 

OOOOOOOOO 

OOOOOOOOO 

{po fMinr-^moinr^ 

^444^10 IT'O'O'O 


o 

o 


oooooooooo 

NOOOOOOOOf 

4>r*- 

mm pgcgfopnmfnmm 


OOOOOOOOOO 


• • 


OOOOOOOOOO 

OOOOOOOOOO 

g OOOOOOOOO 

.o in m <n in — < 4 


sO 

*0 


>0 

<0 


N®0‘OhOod^' 


mooooooooo 

rgoooooooojn 

fsifMfNinjcncnfnmrnfn 

oooooooooo 


_i cm m^m-cr-oooo 


-j 

o 

z 

•a 

E 


> 

UJ 

o 

UJ 

-I 

CD 


UJ 

u 

z 

UJ 

oc 

UJ 

u. 

UJ 

oc 


OOOOOOOOO 
o OOOOOOOOO 

o ininmoooocoo 

cm ^o^fpiincoinf'-min 

^ ••»•••••• 

o 

OOOOOOOOO 
o OOOOOOOOO 

U"\ (TnriTfflOMN® 

O 

4 •••#••••• 

o 

OOOOOOOOO 
o OOOOOOOOO 

r-l lAfflO^O^^lOO 

cd 

(O • ••*••••• 

• p-r--n>oinintninin 

o 


CD 

X 

a 


O 

rg 

in 

pn 

• 

o 


o o o o 
o o o o 

IT N IT ® 
N O O' 4 

»*»« 

O' CD O O 


o o o o o 
o o o o O 
cn OD O 'O O' 
ir» co h 

11*1* 

^3 m in m in 


o 

* 

pg 

r> 

• 

o 


OOOOOOOOO 

OOOOOOOOO 

OHf^rfMT'flNNO 

^>po«t'Oin4'-*«h- 




O 

<M 

O 

P*l 

• 

O 


OOOOOOOOO 

OOOOOOOOO 

O^®P)^HNC0O 

m.-«cDCM*-*nJh-*“'Cr 

*OP-P-aooof-'G'Oin 


o 

o 

O 

cm 

• 

o 


> 0000000 © 
>00000000 
> o o m noinon 
jgjr'-rgTO'O'-^m 

itiiiiii* 

'isop-oor-oin^nj 


o 

* 

CO 

pg 

• 

o 


OOOOOOOOO 

OOOOOOOOO 


O 

o 

sO 

CM 

4 

o 


O O O o o o 
O o o O O o 
o o in tn m o 

NfflNO®irOO 
• ••••••• 

4->OP~'0'tf < ' 0 0 


ao 

a 

x 


ifi O' O ® 'O o 
cm pg in n* oo o* o 
•o r- co O' >-• m n 
pg eg rg rg m pn m 
• •••••• 

o o o o o o o 


«o o 
4 in 
>0 f» 
pn (Ti 
• « 
o o 


o OOOOOOOOO 

o OC04>«4-fP*00'*'*'0 

CM 4(fi(n(P®4>OOH 
< 4 - 0000000 *-*i-i 

« |«iiii*ii 

O OOOOOOOOO 


o OOOOOOOOO 

O 'Oir<tP'>04®^ 1 ^ 

OOOOOOOOO 
• • *•••••** 
o OOOOOOOOO 


o OOOOOOOOO 

f -1 (MNmH^O'OO^ 

ao p'^4f f 'P'4'P'0'^ 

CO OOOOOOOO*-* 

t llllltlll 

o OOOOOOOOO 


o 

PM 

in 

® m 

CD • 

*- O 

X 
Cl 

O 

* 

rg 

m 

• 

o 


OOOOOOOOO 

mP- 0 'OP r ' 0 'fsipn 4 ' 

OOOOOOO-J*-* 

« I I I * « I • I 

OOOOOOOOO 


>00000000 

3«ncD4)*-OOOin 


OOOOOOOOO 


o OOOOOOOOO 
pg h^h^>0'0''0^® 

o ir44nN m >n® - 

pn OOOOOOOOi-i 

• lllllll** 

o OOOOOOOOO 


o 

o 

O' 

pg 

• 

o 


OOOOOOOO 

pg< 080 pgpgOCDO 

ITi'^-frirrifri't'O'O 

OOOOOOO*-* 

oooooooo 


fC 

o 


o 

* 

CD 

rg 

* 

o 


OOOOOOOO 

Nlfi'OCT^'tNH 

irisff r ipgp r i' 4 ‘®p 

oooooooo 
• •*«•••• 

OOOOOOOO 


o 

o 

>0 

pg 

o 


oooooooo 

^CM-t'Of-njo© 

oooooo*~*«n 

• I * I I • • « 

OOOOOOOO 


UJ 

u 


CL 

UJ 

u. 

UJ 


(B 

CL 

X 


' 0 O ® 'O 0 'C 

J ® h- ® O' O 4 

* cd O' ** i®* m <c 

g rg cm pn m m pp 

t I I I I I < 

? o o o o o c 


CL 


162 


0*3750 0**400 0.2620 0*2140 



INIFT CONOCTIONS 

PH! RUN NO. 

1000.01 


R 

0. 2625 
0.2729 
0.2979 
0.3188 
0.3396 
0.3646 
0. 3750 

vz 

59.8100 
59. 8100 
58.9500 
59.3900 
58.9300 
55.9200 
55.9200 

VU 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

H 

188.3600 
188. 3600 
188.3600 
188.4600 
188.5200 
185.6600 
185.6600 

r 

PHIFFr 

UST AR 

ARFAC 

l 

0.4052 

142.1574 

0.9840 
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INLET CONDITIONS 

PHIRUN NO. 


R 

0.2625 

0.2729 

0.2979 

0.3188 

0.3396 

0.3646 

0.3750 


I 


l 


vz 

51.8100 
51.8100 
51.1500 
51.3400 
51.1700 
48.8000 
48. 8000 


PHI EFC 


0.3521 


1000.02 


VU 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


USTAR 


142.1574 


H 

188.5700 

188*5700 

188.4100 

188.8400 

188.8900 

186.9000 

186.9000 


ARFAC 


0.9850 
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ENTRANCE QUANTITIES GEOMETRIC PARAMETERS 
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ROTOR MASS AVERAGED HEAD RISE FROM I TO !M * 128.6317 FT 

ROTOR MASS AVERAGED EFFICIENCY 8ETWEEN t ANO 1*1 *0.9169 
AVERAGE FLOW COEFFICIENT AT I *0.3574 
AVERAGE FLOW COEFFICIENT AT !♦! -0.3574 
ROTOR HEAD RISE COEFFICIENT AT 1*1 *0.2048 



AXIAL-FLOW PUMP PERFORMANCE PREDICTION INPUT 


I RUN*1000 


J BAS E* 10 JLIM* 20 


REFERENCE TABLE INCIDENCE ANGLE BLADE THICKNESS CORRECTION 


YTMACB* 0.0 

YFKIB* 0.0 


0.02 

0.33 


0. 04 
0.59 


0.06 

0.77 


0.08 

0.90 


0.10 

1.00 


0.12 

1.08 


REFERENCE TABLE ZERO-CAMBER 


INCIDENCE ANGLE AND CANBER COEFFICIENTS I F I 1 0 GB , SLP1GB , SL P2GR , 


YANGSB 


0.0 

10.00 

20.00 

30.00 

40.00 

50.00 

60.00 

70.00 


0.0 

10.00 

20.00 

30.00 

40.00 

50.00 

60.00 

70.00 


0.0 

10.00 

20.00 

30.00 

40.00 

50.00 

60.00 

70.00 


SGMGBB 


0.4 

0.042 
0. 413 

0. 738 
1.043 
1. 360 
1.662 

1. 864 
2.042 

-0. 043 
-0.088 
-0.138 
-0. 191 
-0.250 
-0.322 
-0.393 
-0.484 

- 0.001 
- 0.001 
- 0. 001 
- 0.001 
- 0. 001 
- 0. 001 
0.001 
0.000 


0 . 6 

0.012 

0.554 

1.085 

1.571 

2.050 

2.485 

2.834 

3.099 

- 0.022 

-0.058 

- 0.100 

-0.148 

-0.206 

-0.273 

-0.352 

-0.458 

- 0.001 
- 0.001 
- 0 . 001 
- 0.001 
- 0.001 
-0.001 
- 0.001 
-0.000 


0. 8 

0.003 
0.721 
1.405 
2.105 

2. 759 
3.386 
3.835 
4. 145 

-0.004 

-0.032 

-0.067 

-0.114 

-0.167 

-0.235 

-0.318 

-0.448 

- 0.001 

-0.001 

-0.001 

- 0.001 

- 0.001 

-0.001 

- 0.001 

-0.000 


1.0 

-0.041 
0.853 
1.735 
2.636 
3.488 
4.283 
4.919 
5. 276 

0.016 
-0. 008 
-0.038 
-0. 079 
-0.131 
- 0.201 
-0.291 
-0.433 

-0.001 
-0.001 
-0.001 
- 0 . 001 , 
- 0*002 
- 0.001 
-0.001 
- 0.001 


1.2 

-0.074 

1.072 

2.146 

3.136 

4.219 

5.215 

5.955 

6.377 

0.041 

0.019 

-0.013 

-0.044 

-0.096 

-0.174 

- 0.268 

-0.408 

- 0 . 001 
- 0.001 
- 0.001 
- 0.002 
- 0.002 
- 0.002 
- 0.002 
- 0.001 


1.4 

-0.097 

1.203 

2.476 

3.751 

5.029 

6.214 

7.016 

7.390 

0.060 

0.047 

0.025 

- 0.010 

-0.066 

-0.150 

-0.249 

-0.376 

- 0.001 

- 0.001 

- 0.002 

- 0.002 

- 0.002 

- 0.002 

- 0.002 

- 0.001 


1.6 

-0.124 
1.387 
2. 844 
4.346 
5.827 
7.255 
8 . 100 
8.517 

0.082 
0.073 
0.055 
0.019 
-0.040 
-0.134 
-0.236 
-0. 357 

- 0.001 
- 0.001 
- 0.002 
- 0.002 
- 0.002 
- 0.002 
- 0 . 002 
- 0.001 


2.0 

-0. 13? 
1.764 
3.663 
5.606 
7.591 
9.398 
10.200 
10.850 

0.116 
0.124 
0. 113 
0.079 
0.007 
-0. 108 
-0.195 
-0. 297 

-0.001 
-0.001 
- 0.002 
- 0.002 
- 0 . 002 
- 0 . 00 ? 
- 0.002 
- 0.002 


BLADE ROW DATA 


10 
l? 
1 3 
14 

0 

0 

0 

0 

0 

-0 

-0 

-0 

-0, 

- 0 , 

- 0 , 

-o, 

-o. 

-o. 

-o. 

-o. 


RN* 2890. 0 RPM 


R$TAR= 0.37500 FT 


IEXOEV* 1 


REFERENCE TABLES FOR BLADE ROW GEOf^TRY 


AND GEOMETRY-DEPENDENT LOSS DATA 


TEXLHS* i 


J X 


alfb XP 


alfpb sgmab 


TMXCB F12DB 


FHB 


FKSH A» 


2.6 

Mfl 6 
1.303 
.944 
.694 
.460 
.540 
.550 
.500 

. 163 
.1 89 
.193 
.1 48 
.047 
.07? 
• 15 7 
.247 

.001 

.002 

. 00 ? 

,00’ 

003 

00 ? 

CO? 

003 
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FLOW RATES COWPLETEO-NEXT READ NEW RPM OR NEW GEONETRV DATA 


1 0*2625 66.0000 0.2625 

? 0.2700 66.6000 0.2700 

3 0.2800 67.5000 0. 2300 

4 0.2000 68.5000 0.2900 

5 0.3000 60.3000 0.3000 

6 0.3200 70.5000 0.3200 

7 0.3400 71.1000 0.3400 

0 0. 3600 70.3000 0. 3600 

0.3700 68.4000 0.3700 

0.3750 67.1000 0.3750 


33.4000 1.44UU u.uo^u 

40.3000 1.4000 0. 0840 

42.7000 1.3500 0.0926 

45.1000 1.3000 0.0813 

47.2000 1.2600 0.0800 

51.0000 1.1800 0.0773 

55.2000 1.1100 0.0746 

60.2000 1.0500 0.0720 

63.7000 1.0200 0.0706 

67.1000 1.0100 0.0700 


0.0 

1.0900 

0.7000 

0.0 

1.0900 

0. 7000 

0.0 

1.0800 

0.7000 

0.0 

1.0800 

0. 7000 

0.0 

1.0800 

0.7000 

0.0 

l .0800 

0.7000 

0.0 

1.0800 

0. 7000 

0.0 

1.0800 

0. 7000 

0.0 

1.0900 

0. 7000 

0.0 

1.0800 

0. 7000 


oFfE^NCE TABLE DEVIATION ANGLE IDEL2B I 


XP8 

0.2600 0.2840 0.2900 0.3020 

0.2625 0.0288 0.0B29 0.0916 0.1100 

0.2729 0.0733 0.1093 0.1152 0.1241 

0.2850 0.1100 0.1323 0.1344 0.1375 

0.2979 0.1265 0.1421 0.1440 0.1436 

0.3188 0.1056 0.1340 0.1388 0.1415 

0.3396 0.0946 0.1140 0.1204 0.1258 

0.3500 0.0611 0.0803 0.1038 0.1173 

0.3646 0.0 0.0302 0.0716 0.1079 

0.3750 0.0 0.0087 0.0445 0.1030 


PHI 00 

.3240 0. 3520 0.3810 0.4050 0.4200 

0.1152 0.1614 0.1388 0.1440 0.1510 

0.1276 0.1400 0.1271 0.1279 0.1300 

0.1297 0.1213 0.1152 0.1105 0.1108 

0.1335 0.1126 0.1077 0.1004 0.0960 

0.1318 0.1140 0.1044 0.0922 0.0830 

0.1127 0.1026 0.0948 0.0955 0.0785 

0.1068 0.0977 0.0935 0.0959 0.0820 

0.1016 0.0935 0.0942 0.0955 0.0939 

0.0995 0.0906 0.0960 0.1061 0.1134 


REFERENCE TABLE LOSS ( 0HEG8B I 


XPR 

0.2600 0.2840 0.2900 0.3020 

0.2625 0.0510 0.0520 0. 0520 0.0510 

0.2729 0.0420 0.0450 0.0460 0.0460 

0.2850 0.0240 0.0360 0.0380 0.0410 

0.2979 0.0160 0.0290 0.0320 0.0360 

0.3188 0.0570 0. 0360 0. 0320 0.0290 

0.3396 0.0620 0.0440 0.0400 0.0390 

0.3500 0*1400 0.0820 0.0680 0.0560 

0.3646 0.3800 0. 2010 0. 1600 0.0890 

0.3750 0.4400 0.2620 0.2140 0.1180 


PH! 88 

0.3240 0.3520 0.3810 0.4050 0.4200 

0.0380 0.0530 0.0920 0.0660 0.0400 

0.0330 0.0470 0.0670 0.0540 0.0380 

0.0280 0.0390 0.0430 0.0400 0.0360 

0.0260 0.0300 0.0310 0.0330 0.0340 

0.0440 0.0130 0.0360 0.0640 0.0830 

0.0600 0.0190 0.0400 0.0470 0.0480 

0.0700 0.0420 0.0560 0.0630 0.0640 

0.0900 0.1030 0.0900 0.0960 0.1040 

0.1050 0.1640 0.1170 0.1160 0. 1160 
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INLET CONDITIONS 

PMIRUN NO. 


A 

VZ 

0.2625 

48.0100 

0.2729 

48.0100 

0.2979 

47. 3200 

0.3188 

47.6800 

0.3396 

47, 3100 

0. 36 4 6 

44. 8900 

0. 3750 

44.8900 

I 

PHIEFC 

1 

0.4075 


lOOO.OS 


VU 

H 

0.0 

188. 3600 

0.0 

188. 3600 

0.0 

188. 3600 

0.0 

188.4600 

0,0 

188.5200 

0.0 

185. 6600 

0.0 

185.6600 

USTAR 

ARFAC 


113.4903 


0. 9840 
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GEOMETRIC PARAMETERS 
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APPENDIX F 

ANALYSIS OF RADIAL EQUILIBRIUM SOLUTION FAILURE 


In the formulation of the pump off-design performance prediction 
problem, the radial equilibrium equation in finite difference form was 
obtained in equation (13). Coefficient C in that equation is repeated 
here, with subscripts 1 and 2 denoting blade row entering and leaving 
stations: 


C = - V 


2 2, j - 2s ( H l, j+ l - H lo SS , j+ l - H 2,j) + 2 To), . , 


f2 - j u 2 + ,r 
r 2 , j+1 2 >J +1 


2 tj±l-L- 2J . , \ v 2 

r 2, j / 92 'J +1 


The coefficient C can be expressed in terms of a difference in loss, 
H loss,j+l " H loss,j' 

Since 


H„ - H. . = AH. . . - H 1 

2, j l,j ideal, j loss.j 


and 


(%), . - ( uv e) U) 


AH. , , . 

ideal, j 


g 


then 


(%) 


H 


2,3 


H. . + 
1» J 


2J_ 


re), , 

iU _ H 


loss, j 
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Therefore 



C = - V 


2,j " 2S ( H l,j+l " H l,j) + 28 ( H loss,j+l 


! (%) 2>j - 2 ( uv e) ljj + 2 ( ro e) 





Radial equilibrium solution failure is defined as the condition 
related to the radicand of the quadratic equation root formula, namely, 

- 4AC, becoming negative. 

In figure 39, the computed results of each of three iterations 
before a radial equilibrium failure occurred are shown for pump config- 
uration 15 operating at a flow coefficient, ^ prog = °* 338 - The recom- 
mended procedures associated with figures 14 and 28 were used for pre- 
dicting losses and deviation angles. The results indicate that the 
spanwise variation of predicted deviation angle did not vary appreciably 
during successive iterations. Thus it can be concluded that the span- 
w f 8e variations with iteration of the blade row exit relative flow angle, 
0 2 » and hence the quadratic equation coefficients A and B, were very 
small. Stability of successive predicted loss variations was, however, 
ne^er achieved before a radial equilibrium solution was obtained. The 
main reason for this circumstance is thought to be the imprecision of 
the recommended loss prediction method which, in the case of radial 
equilibrium solution failure, seems to generate spanwise gradients of 
loss that cause the quadratic equation coefficient C to become large 
enough in a positive sense to result in a negative radicand - 4ac 
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before equilibrium is achieved. It is easily seen from the quadratic 
formula as well as the relationship for the coefficient C that a large 
spanwise gradient of loss will lead to a small V z 2 and a large V fi 
The large difference in Hi oss , the small V Z] 2, an<i the large Vq 2 all 
tend to make C a large, positive number. 
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APPENDIX G 


SYMBOLS 

In addition to the following list of symbols, glossaries of Fortran 
computer program symbols and description of program input load and output 
variables are included in the section, Computer Program Capability and 
Utilization. 

A coefficient (see equation 14) 
a empirical constant (see equation 19) 

AVR ratio of blade leaving to entering axial velocity 
B coefficient (see equation 15) 

b empirical constant (see equation 19) ; camber exponent 
(see equation 43) 

C coefficient (see equation 16) 

c blade chord 

C.P, circulation parameter (see equation 21) 

C pressure coefficient 
P 

C^, ... coefficients (see equation 21) 

D diffusion factor (see equation 19) 

DSQ equivalent diffusion factor (see equation 21) 

g acceleration of gravity 

H stagnation head 

H blade wake form factor 

h static head 

H- head loss 

loss 

i blade incidence angle (see figure 6) 
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deviation angle blade shape correction factor 


< K 6> sh 

(KS) t deviation angle blade thickness correction factor 

m slope factor, deviation angle function of blade 

camber for compressors (see equation 23) for compressors 

m coefficient in Carter’s deviation angle rule for 
compressors (see equation 22) 

n exponent (equation 18); number of blades in blade 
row 

P stagnation pressure 
p static pressure 

Q measure of volume flow rate (see equation 17) 
q volume flow rate 
r radius from machine axis 


s blade spacing in cascade 
U tangential blade speed 
U free stream velocity 
V flow velocity 
x a distance 
z axial coordinate 
a blade angle (see figure 6) 

(3 flow angle, measured from axial direction (see 
figure 6) 

r blade circulation (see equation 26); Buri shape 
factor (see equation 18) 

v blade setting angle, angle between chord and axial 
direction 

6 flow deviation angle (see figure 4) 
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6 q zero camber reference deviation angle (see equation 23) 

( S o ^10 107 ° thickness reference value of 6 , NACA 65-series 

blading (see equation 24) ° 

e turning angle, ^ ^ 

T| hydraulic efficiency 

0 blade wake momentum thickness 

(9/ c )a» ••• blade wake momentum thickness to chord ratio (see 

equations 29-33) 

V kinematic viscosity 

a solidity, c/s 

0 flow coefficient, V./U*. 

0 blade camber angle (see figure 6) 

ill head rise coefficient, g(H 2 - H^/U^ 

u) head loss coefficient, 2g(HA . - H')/(V’)^ 

i 2 1 

Subscripts 

A, ... E versions of momentum thickness to chord ratio parameter 
AV average 

c corrected 
eq equivalent 
exp experimental 

1 axial station, between blade rows 

j blade element or streamline radial station 

^base radlal equilibrium calculation starting value of j 
j li m outer casing 
min minimum value 
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nom nominal 


prog program 
r rotor 
ref reference 

s blade suction surface; stator 
st stage 
t blade tip 
z axial 
8 tangential 

1 blade row entrance 

2 blade row exit 
2 -D two - d imens i ona 1 

Superscript s 

1 relative to blades 
* reference value 
mass averaged 
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Rotors used for obtaining loss and deviation angle correlations. 
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Stage head coefficient 


Figure 1. 




- NoncavltaHng overall performance af an avlal-flow 


pump stage (ref. 69). 
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60 


Figure 3. 


Design 



Design 


Flow coefficient, 

<P 

° 0.328 
0 0.282 
0 0.267 
o 0.252 


Radius ratio, r/r 


(a) Axial velocity 

Radial distributions of flow parameters at rotor inlet, rotor exit (stator inlet) 
second 1 fref?69)! ^ axfal " flow P um P sta 9 e ^ rotor tip speed 153.7 feet per 
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Figure 3. - Concluded. 
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Design 
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(a) Effect of blade setting angle 



(b) Effect of solidity 




(c) Effect of camber 


Figure 7. - Effect of geometric parameters on deviation 







Figure 9. - Typical cascade results. 



Deviation angle, ^ deg 



Incidence angle, i, deg 


Figure 10. - Comparison of deviation angle as a function of incidence angle for constant 
inlet angle and constant blade setting angle. Data from reference 40. 
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Version A of momentum 
thickness to chord ratio, (0/c) 



(a) Version A of momentum thickness to chord ratio; 10 percent of passage height 
from the outer wall. 

Figure 13. - Variation of blade-element wake momentum thickness parameter with loading 
(equivalent diffusion ratio). 
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Version B of momentum thickness to chord ratio, (e/c)' 





Version C of the momentum 
thickness to chord ratio, (0/c) 
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Equivalent diffusion ratio, DEQ^ 

(c) Version C of the momentum thickness to ahord ratio; 10 percent of 
passage height from the outer wall. 

Figure 13. - Continued. 
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Version D of the momentum 
thickness to chord ratio, ( 0 /c) 



1.20 1.40 1.60 1.80 2.00 2.20 2.40 2.60 2.80 3.00 3.20 3.40 3.60 
Equivalent diffusion ratio, DEQ 

(d) Version D of the momentum thickness to chord ratio; 10 percent of 
passage height from the outer wall. 

Figure 13. - Continued. 
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Version E of the momentum 
thickness to chord ratio, (e/c) 
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Equivalent diffusion ratio, DEQ 

(e) Version E of the momentum thickness to chord ratio; 10 percent of 
passage height from the outer wall. 


Figure 13. - Continued. 
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Equivalent diffuiion ratio, DEQ f 

(f) Versions A, B, C, D, and E of the momentum thickness to chord ratio 
50 percent of passage height from the outer wall. 


Figure 13. - Continued. 
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(g) Versions A, B, C, D, and E of the momentum thickness to chord rati 
90 percent of passage height from the outer wall. 


Figure 13. - Concluded. 










Version A of the momentum thickness to chord ratio, (0/c) 



Equivalent diffusion ratio, DEQ r 


Figure 14. - Loss correlation curves derived from experimental data with Version A of the 
momentum thickness to chord ratio, equivalent diffusion ratio and percent of 
passage height from outer wall used as correlating parameters. 
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Percent of passage height 
from outer wall 
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< -0.08 
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Diffusion factor, D r 


Figure 15.- Loss correlation curves derived from experimental data with Version A of the 
momentum thickness to chord ratio, diffusion factor and percent of passage height from 
outer wall used as correlating parameters. 
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Figure 17. - Variation of Version A of the momentum thickness to chord ratio with diffusion 
factor at different radii. 
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(a) Measured outlet 
velocity diagram 


(b) Corrected outlet 
velocity diagram 


Figure 19. - Velocity diagrams used in the axial velocity ratio correction of reference 51. 
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Figure 20. 


- Results of using the axial velocity ratio correction of reference 51 
incidence angle conditions. 


at reference 
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Deviation angle, 6 , deg Deviation angle, 5, deg 


Corrected as per ref. 51 

Experimental data 

Carter's rule 



Percent passage 
height from hub 



0 -20 40 60 80 100 


Percent passage 
height from hub 


Figure 21 . - Results of using the axial velocity ratio correction of reference 51 
at design flow coefficient. 
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Deviation angle, \ deg 


A Experimental data 
— Constant T, iterative method 

Constant D, iterative method 

Carter's rule 



(a) 0.7 hub-tip radius ratio, 
N = 3600 rpm, 0 = 0.284, 
configuration 07. 



configuration 5. 



configuration 14A. x 


Figure 22. - Deviation angle radial distribution comparisons. 
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Percent passage 
height from hub 


Figure 23. - Camber exponents for reference incidence angle conditions using 
the corrected camber concept. 



Percent passage 
height from hub 


Figure 24. - Camber exponents for reference incidence angle conditions using 
actual blade camber. 
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Incidence ongfe difference, i - 


Figure 25. - Measured deviation angle as a function of incidence angl 














Camber exponent, b Camber exponent. 




Incidence angle difference, i - i ,, deg 

ref 


Figure 26. - Camber exponents for entire operating range using equivalent camber concept. 
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Figure 27. - Camber exponents for entire operating range using actual blade camber 
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Figure 27. - Concluded. 
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Loss coefficient 
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(a) Configuration 07, 70 percent (b) Configuration 5, 90 percent 
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(c) Configuration 5, 50 percent 


(d) Configuration 14A, 70 percent 


Figure 29. - Typical plot of rotor loss coefficients which show little dependence on in- 
cidence angle at 50, 70 and 90 percent of passage height from the outer wall . 
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Loss coefficient 



Incidence angle, i, deg Incidence angle, i, deg 

(a) Configuration 13A, 10 percent (c) Configuration 14A, 90 percent 


Figure 30. - Examples of loss coefficient variations with no minimum loss incidence angle 
defined. 
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Loss coefficient 


Configuration 14A 
10 percent of passage 
height from outer wall 



Figure 31 . - Example of loss coefficient 
curve for which a reference 
incidence angle may be 
determined. 








O Experimental data (ref. 57) 

— Calculated using specific three-parameter 
(6 or ii) , 0 and r) loss and deviation angle 
correlations (IEXLOS = IEXDEV = 1) 




Figure 33. - Rotor overall performance, 9-inch tip diameter, 33 blades, 
0.85 hub-tip radius ratio, N = 2420 rpm (configuration 13A). 
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Outlet axial velocity, V 0 , fps Outlet flow angle, 0_, deg 


A Experimental data (ref. 57 ) _ _ 

— Calculated using specific three-parameter ( 6 or ic , 0 and r) 
loss and deviation angle correlations (IEXLOS = IEXDEV = 1) 



Figure 34. - Rotor blade-element performance, 9-inch tip diameter, 33 blades, 
0.85 hub-tip radius ratio, N = 2420 rpm (configuration 13A). 
































Mass- averaged head- rise 

coefficient, ¥ Mass-averaged hydraulic efficiency 

o o o percent 


O Experimental data (ref. 57 ) 

Calculated using recommended loss (fig. 14 , IEXLOS = -1) 

and deviation angle (fig. 28, IEXDEV = -1) correlations 
Calculated using two-dimensional loss (fig. 18 , IEXLOS = 0) 
and deviation angle (Carter's rule, IEXDEV = 0) correlations 



Figure 35. - Rotor overall performance, 9-inch, 19 blades, 

0.8 hub-tip radius ratio, N = 3000 rpm (configuration 15). 
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Outlet axial velocity, V , fps Outlet flow angle, deg 


A Experimental data (ref. 57) 

— Calculated using recommended loss (fig. 14, IEXLOS 1) 
and deviation angle (fig. 28; IEXDEV= -I) correlations 
> — — Calculated using two-dimensional loss (fig. 18, IEXLOS = 0) 
and deviation angle (Carter's rule, IEXDEV = 0) correlations 





Figure 36. - Rotor blade-element performance, 9-inch tip diameter, 
19 blades, 0.8 hub-tip radius ratio, N = 3010 rpm 
(configuration 15). 
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A Experimental data (ref. 57 ) 

"“Calculated using recommended loss ( fig. 14, IEXLOS * 1 ) 
and deviation angle (fig. 28, lEXDEV 3 * ** -1 ) correlations 
-"Calculated using two-dimentional loss ( fig. 18, IEXLOS = 0 ) 
and deviation angle ( Carter's rule, IEXDEV = 0 ) correlations 



Figure 36. - Concluded. 









Moss-averaged head-rise Mass-averaged hydraulic efficiency, 

coefficient, * percent 


O Experimental data (ref. 57) 

Calculated using specific three-parameter 
(6 or a? , 0 and r) loss and deviation angle 
correlations (IEXLOS = IEXDEV = 1) 


IP 




Figure 37. - Rotor overall performance, 9-inch tip diameter, 

19 blades, 0.8 hub-tip radius ratio, N = 3010 rpm 
(configuration 15). 
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£ Experimental data (ref. 57) 

Calculated using specific three-parameter 

(6 or uj, 0 and r) loss and deviation angle 
correlations (IEXLOS = IEXDEV = 1) 



Kodlu* rotfo,r/r t lodlut ratio, r/r^ 


Figure 38. - Rotor blade-element performance, 9-inch tip diameter, 
19 blades, 0.8 hub-tip radius ratio, N = 3010 rpm, 0 
(configuration 15). p 






a Experimental data (ref. 57) 

Calculated values associated with each of three iterations 
— I before solution failure when using the recommended 

(figs. 14 and 28 , IEXLOS * IEXDEV = -1) loss and deviation angle correlations. 



Figure 39. - Rotor blade-element performance, 9-inch tip diameter, 

19 blades, 0.8 hub-tip radius ratio, N = 3010 rpm , 0 = 0.338 

(configuration 15). ^ >r0 ® 
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Mass- averaged head- rise Mass- averaged hydraulic efficiency 

coefficient, t percent 


O Experimental data (ref. 69) 

— Calculated using recommended loss (fig. 14, 
IEXLOS = -1) and deviation angle (fig. 28, 
IEXDEV = -1) correlations 



0.24 0.26 0.28 0.30 0.32 0.34 

Mass averaged flow coefficient, 0, 

prog 

Figure 40. - Stage overall performance; rotor - 9-inch tip diameter, 
19 blades, 0.4 hub-tip radius ratio, N = 3910 rpm; 
stator - 9-inch tip diameter, 18 blades, 0.4 hub-tip 
radius ratio (configuration 01). 
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Outlet axial velocity, V 0 , fps Outlet Flow angle 


O Experimental data (ref. 70) 


— Calculated using recommended loss (fig. 14, 
IEXLOS = -1) and deviation angle (fig. 28, 
IEXDEV = -1) correlations. 




0.01 

0.4 


Radius ratio, r/r^ 


Radius ratio, r/ 


Rotor blade-element performance; 9-inch tip diameter, 

19 blades, 0.4 hub-tip radius ratio, N = 3910 rpm, 0 = 0, 

(rotor of configuration 01 stage). 








O Experimental data (ref. 70) 

- Calculated using two-dimensional loss (fig. 18 , ro 
IEXLOS = 0) and deviation angle (Carter's rule) ■§ 
correlations 
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Figure 42. — Stator blade-element performance; 9-inch tip diameter/ 
18 blades, 0.4 hub-tip radius ratio, 0 = 0.291 

(stator of configuration 01 stage). 
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O Experimental data (ref. 69) 

Calculated using recommended loss (fig. 14, 

IEXLOS = -1) and deviation angle (fig. 28, 
IEXDEV = -1) correlations. 


IP 



1 ^ 



Figure 43. - Rotor overall performance; 9-inch tip diameter, 
19 blades, 0.4 hub-tip ratio, N = 3910 rpm 
(rotor of configuration 01 stage) 
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Outlet axial velocity, v_ 0 , fps Outlet flow angle 


O Experimental data (ref. 70) 

Calculated using recommended loss (fig. 14, 

IEXLOS = -1) and deviation angle (fig. 28, 
IEXDEV= -1) correlations 






Figure 44. - Rotor blade-element performance; 9-inch tip diameter, 

19 blades, 0.4 hub-tip radius ratio, N * 3910 rpm, 

0 = 0.272 (rotor of configuration 01 stage) 

prog 
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